Discussion :

[Lisa_ffe31]

Bonjour a tous,

J'aurais besoin de conseil "structurel" concernant ma programmation PERL.
Dans un repertoire de travail, j'ai un programma principal "Main.pm" qui doit appeler un autre script perl nommé "check.pm". Ce dernier doit me retourner un $code (0 ou 1) dans le Main.pm afin que le main puisse continuer ou non le deroulement.

Je ne sais pas quelle methode employer pour cela. (Sachant que check.pm peut etre utilisée par un autre script Perl. Il s'agit d'un module commun a plusieurs scripts).
Dois-je utiliser le use check; dans mon main.pm ?
et si oui ... comment recuperer mon $code ?

Actuellement, j'ai trouvé une parade en faisant un exit 0; (si tout se passe bien) ou exit 1; (si probleme) dans mon check.pm. Code que je recupere dans mon main.pm comme :

Code :

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

$code=system(`check.pm $Argument`);

En gros, voici la structure de mes scripts :
main.pm

Code :

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

1
2
$Argument="/bin/usr/myfile.hdr";
$code=system(`check.pm $Argument`);

check.pm

Code :

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

1
2
 
if (-e $Argument) {exit 0;} else {exit 1;}

Mon check.pm est plus compliqué que ca mais le principe est là.
Je pense que cette solution n'est pas tres "propre" en PERL ... ? Auriez vous une autre solution plus propre a me proposer ?

Merci pour vos conseils !
Lisa

[foudunix]

Bonjour,

tout d'abord une remarque : la "coutume" voudrait que ton Main.pm soit nommé Main.pl si c'est un programme Perl à part entière.

Un "module" est en fait une collection (on dit aussi bibliothèque ou library en anglais) de fonctions que l'on charge dans son programme appelant par "use module". Lui doit être nommé xxx.pm.

Le mieux serait que tu ailles voir le cours de Perl du club (http://lhullier.developpez.com/tutoriels/perl/intro/), chapitre XII

[Lisa_ffe31]

Merci foudunix pour ta reponse ... mais

cela ne repond pas a ma question. J'ai bien compris qu'un module pouvait s'integrer comme les #include en C, mais mon soucis, est que je dois retourner une valeur de mon programme check.pm.

Et l'utilisation de use me permet d'introduire des librairies qui sont un ensemble de fonctions qui ne retournent rien, si j'ai bien compris. (genre Math::trig ou XML::simple) ... ?


Merci encore

[Jasmine80]

Voici deux mini-programmes, ils doivent se trouver dans le même répertoire. C'est de la programmation objet, je ne sais pas si cela pourra t'aider.

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
16
17
18
19
20
21
#!/usr/local/bin/perl
 
 
 
#------------- Sequence.pl ----------------#
 
use strict;
use warnings;
use Sequence;
 
 
 
my $seq1 = Sequence->new ("Seq1", "ATGCCTGATGGCGTAATCCGTGAC");
 
 
 
# Sequence en majuscules
print $seq1->{SEQUENCE}."\n";
 
# fonction permettant de l'écrire en minuscules
print Sequence::Minuscules ($seq1->{SEQUENCE});

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
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/local/bin/perl
 
 
 
#------------- Sequence.pm ----------------#
 
use strict;
use warnings;
package Sequence;                                       # nom du package
 
 
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;
}
1;                                                      # code de retour du module NE PAS OUBLIER
 
sub Minuscules
{
        my $Seq = $_[0];
        my $Seq_LC = lc($Seq);
        return ($Seq_LC);
}

Bon travail,


Jasmine,

[Lisa_ffe31]

Genial !!

Super !!!!
Merci bp ... je vais essayer de me depatouiller avec ca, mais je crois que c'est exactement ce que je recherchais !

Merci Jasmine



Lisa