Appel sous script

**calimero642** · 20/03/2006, 12h09

Bonjour à tous,
je poursuis mon apprentissage dans ce vaste langage perl.
Voila j ai une petite question concernant l optimisation fonctionnelle d un script perl !

Au fur et a mesure les lignes de codes s accumulent et je voudrais externaliser une fonction pour permetre également l'évolution !
Je voudrais donc un prog principal_A qui fait appel un autre script_B egalement en perl. Sachant que le script_B va renvoyer des reponses au prog principal_A.
Comment appeler cette fonction et comment je gere les variables du prog principal vu quelles sont utilise en stict ???

Merci Jules

PS j sais que c est pas tres clair dsl

**djibril** · 20/03/2006, 12h11

tu peux faire ce qu'on appel des modules (script.pm) dans lequel tu mets tes sous programmes (ou procédures). Puis tu les appelles dans ton programmes principal.
On en parle dans le FAQ confere ma signature.
Sinon voici le lien direct vers comment appeler un module local

**calimero642** · 20/03/2006, 12h21

Merci il me manquait le terme employe de "MODULE" pour la recherche dans la faq .
Merci
Jules

**GLDavid** · 20/03/2006, 13h23

tag résolu, please.

@++

**calimero642** · 20/03/2006, 15h54

Bonjour a tous;
suites aux differents conseils je suis allez voir la FAQ a cette adresse:

http://perl.developpez.com/faq/?page...nC3#sectionC31

Et meme l exemple donné je n arrive pas a le faire fonctionner ???

voila le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
#!/usr/bin/perl -w
use strict;
use Carp;
use lib './test_ju';    #mon module se trouve dans le répertoire "repertoire_module"
use mon_module;         #       =>utilisation du module "mon_module"
 
my $seq = "ATCGTGC";
&longueur($seq);                #utilise la fonction &longueur de mon module
                                #=>c'est une séquence de longueur 7
print "c'est ok!";              #=>c'est ok!

et voila le module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl -w
use strict;
use Carp;
package mon_module;
 
sub longueur{
  my ($seq) =@_;        #récupération de la séquence à traiter
  my $lg = length($seq);
  print "c'est une séquence de longueur $lg\n";
}
1;                      #obligatoire dans les modules en fin de programme.

Et voila l'erreur !!

Undefined subroutine &main::longueur called at ./script_principal.pl line 8.

Merci d avance pour le coup de pouce !
Jules

**djibril** · 20/03/2006, 16h17

bon c'est moi qui est ecrit l'exemple, alors, si c'est pas bon ça va pas le faire

. Je le reteste !!

**djibril** · 20/03/2006, 16h19

au fait, le .pm, tu l'as appelé comment?? mon_module.pm??
Tu l'as mis dans le repertoire /test_ju?

**calimero642** · 20/03/2006, 16h22

Oui le module s appelle mon_module.pm et le fichier principal ainsi que e le fichier module se trouvent dans le repertoire ./test_ju

Merci
Jules

**djibril** · 20/03/2006, 16h31

donc l'erreur est normal. Au fait si tu met le module et le fichier principal dans le même repertoire, tu dois mettre

Code :

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

use lib '.';

et non

Code :

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

use lib './test/ju';

en fait use lib '' permet de specifier le chemin où se trouve ton .pm donc si ce dernier est dans le même repertoire, un point suffit

**calimero642** · 20/03/2006, 16h48

Oki j ai modifié et voici ainsi mon code:

Principal

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
#!/usr/bin/perl -w
use strict;
use Carp;
use lib '.';    #mon module se trouve dans le répertoire "repertoire_module"
use mon_module;#                        =>utilisation du module "mon_module"
 
my $seq = "ATCGTGC";
&longueur($seq);                #utilise la fonction &longueur de mon module
                #               =>c'est une séquence de longueur 7
print "c'est ok!";#             =>c'est ok!!/usr/bin/perl -w

Module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl
use strict;
use Carp;
package mon_module;
 
sub longueur{
  my ($seq) =@_;        #récupération de la séquence à traiter
  my $lg = length($seq);
  print "c'est une séquence de longueur $lg\n";
}
1;                      #obligatoire dans les modules en fin de programme.

Mon erreur
Undefined subroutine &main::longueur called at ./script_principal.pl line 8.

Merci d avance Jules[/b]

**djibril** · 20/03/2006, 16h55

dans le module, enleve la ligne package mon_module;
c'est ça qui fait bugger, je vais la virer de la doc.

merci pour ta remarque.

**calimero642** · 20/03/2006, 17h00

Extra ca fonctionne,
est ce que tu sais si c est possible d'utiliser des variables definis dans le prog principal et de les utiliser dans le module ?
Et chopper le resultat d une variable du module pour l exploiter dans le prog principal ?

Merci d avance Jules

**djibril** · 20/03/2006, 17h04

tu peux recuperer dans tes modules autant d'argument que tu veux et faire un return pour renvoyer une ou des variables, un tableau, un hash, etc. c'est à toi de voir.
Dans l'exmple, tu lui a donné en argument une sequence et il t'as printer le resultat. Tu pouvais faire un return dans ta fonction et recuperer le resultat dans le prog principal.
Voilà

**calimero642** · 20/03/2006, 17h12

Merci je vais essayer de le faire marcher par contre encore une petite question, si j ai une erreur dans le module comment je pe le savoir ?

Merci Jules

**calimero642** · 20/03/2006, 17h37

C'est bon c etait une question stupide mais par contre j ai une erreur sur le "1" a la fin du prog mon_module dans mon prog perso.

Bareword "l" not allowed while "strict subs"

Ca veut dire quoi ?

Merci Jules

**Jedai** · 20/03/2006, 17h44

Envoyé par djibril

dans le module, enleve la ligne package mon_module;
c'est ça qui fait bugger, je vais la virer de la doc.

merci pour ta remarque.

Non, non, surtout pas ! La ligne package est très bien là où elle est.

Mais il faut appeler longueur() par son nom complet :

Code :

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

1
2
 
mon_module::longueur( $seq);

Pour éviter ça, on peut utiliser le module Exporter, qui a été explicitement conçu pour régler ce genre de problème :

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
 
use strict;
use Carp;
package mon_module;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(longueur);
 
sub longueur{
  my ($seq) =@_;        #récupération de la séquence à traiter
  my $lg = length($seq);
  print "c'est une séquence de longueur $lg\n";
}
 
sub private{
  print "ceci esst une sub privée";
1;

Maintenant, dans ton script qui fait un 'use mon_module;', tu peux faire directement 'longueur( $seq );' mais tu es obligé de taper son nom complet pour appeler private().

Le système de "package" permet d'établir une notion d'espace de nom, et tous les programmeurs expérimenté te diront à quel point c'est utile.

--
Jedaï

**djibril** · 20/03/2006, 17h46

j'ai du prendre de mauvaise habitude car je ne fais plus ainsi. Mais fait confiance à mon collegue jedai

**calimero642** · 20/03/2006, 17h47

C'est bon c'est règlé je suis un ANE c etait pas un L minuscule mais un "1" par contre le prog crash car la variable du prog principal n arrive pas etre exporte !!!

Voici l erreur

Global symbol "$Type_Switch" requires explicit package name at sous_fonc.pm line 21

Voici l appel du module dans le prog principal

$Type_Switch_Cisco=&Switch_Cisco($Type_Switch);

$Type_Switch >>>variable du prog principal definit en our $Type_Switch
et require a la place de use pour le module.

Comment dois je definir la variable de prog principal pour pouvoir l utiler dans mon module ??

Merci Jules

**calimero642** · 20/03/2006, 18h03

Oki j ai pris bonne note des tes conseils Jedai, mais j ai un petit soucu a la compilation avec la definition de:

Global symbol "@EXPORT" requires explicit package name at sous_fonc.pm line 14.
Global symbol "$Type_Switch" requires explicit package name at sous_fonc.pm line 25.

Et ca sert a quoi de definir un tableau @EXPORT ?

Merci d avance Jules

**Woufeil** · 20/03/2006, 19h04

Salut !

Pourquoi tu as mis un require à la place du use ? Je trouve pas que ce soit une bonne idée, étant donné que le require est traitée à l'éxécution alors que le use à la compilation...
Ensuite, j'ai l'impression que tu utilises $Type_Switch à l'intérieur du module, or elle n'est pas définie dans le paquetage (ou l'espace de nom) de ton module.
Si tu veiux utiliser $Type_Switch dans ton module, il faut nommer à quel package elle appartient, et c'est le paquetage par défaut main.

Donc il te faut faire un :

Code :

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