PERL et modules

Version imprimable

14/02/2008, 11h14
Lisa_ffe31

PERL et modules
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:

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

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

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

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
15/02/2008, 05h59
foudunix

modules

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
18/02/2008, 15h07
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

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:

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:

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,

19/02/2008, 10h05
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