Discussion :

[yoruichiy]

bonjour,
je cherche a appeler un script à partir d'un autre en lui donnant en parametre des tables de hashage
est ce possible a faire?

my @a=`bk_comment.pl %consumer %statement`;
comme ca évidemment ca ne marche pas, si c'est faisable quelle est la syntaxe dans le fichier qui appelle et comment les recupérer dans le fichier appelé

merci par avance

[djibril]

je te proposerais plutôt de faire des .pm afin de partager des procédures avec en arguments des hash.

[Jasmine80]

Je sais qu'en orienté objet, tu peux créer un script.pm (package) et l'appeler via un script.pl en lui passant des paramètres. Est-ce ce que tu voudrais faire?
http://www.netalive.org/tinkering/serious-perl/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#------------- Sequence.pm ----------------#
 
use strict;
use warnings;
package Sequence;   
 
sub new                                                 # fonction est définie
{
        my ($Classe, $NomSeq, $Sequence) = @_;
        my $self = {};                                  # référence anonyme vers une table de hachage vide
        bless ($self, $Classe);                         # indique que la référence est liée au package (à la classe)
        $self->{NOM} = $NomSeq;
        $self->{SEQUENCE} = $Sequence;
        return $self;
}

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
#------------- Sequence.pl ----------------#
 
use strict;
use warnings;
use Sequence;
 
 
 
my $seq1 = Sequence->new ("Seq1", "ATGCCTGATGGCGTAATCCGTGAC");

Sinon, ce que je fais dans ton cas, est de copier en sortie du script 1 les valeurs du hash dans un fichier texte et de les récupérer en entrée du script 2. Cela me fait un backup des données.

[djibril]

Pas besoin de faire de l'objet pour créer un .pm jasmin, il peut faire plus simplement

[Jasmine80]

Oui, je supposais bien que l'objet était inutile mais je n'en étais pas certaine. C'était surtout afin de donner un exemple de script.