Discussion :

[Ludo167]

Bonjour a tous,

voilà mon probleme, mon progr est decouper en plusieurs partie j'ai mon script principal avec mon fichier pl qui appelle mon module extractor (fichier pm) et mon module extractor appelle mon module statistic, et j'aimerais savoir comment fais t'on pour recuperer les variables du module extractor et d'utliser la valeur de ces variables ds mon module statistic..

J'espere avoir été assez claire...

Merci d'avance de vos reponses..

[dmitry_ovsianko]

Il y a des types différents de variables en Perl. Pour passer des valeurs à travers des modules, il faut utiliser des variables globales. Le méilleur est de les déclarer avec our.

En fait, il faut savoir qu'est-ce que tu nommes des modules. Le plus souvent un module est un fichier contenant un package du même nom (fichier extractor.pm avec la première ligne 'package extractor').

Quand tu écris

Code :

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

1
2
3
4
5
package extractor;
...
our $ma_var = 1;
...
1;

il surgit la variable globale $extractor::ma_var. Elle est acessible sous ce nom de n'importe où dans ton code. Dans le package natal (extractor) elle est visible sous le nom court $ma_var. Illustration:

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
package extractor;
 
  our $ma_var = 1; # nous l'avons créé
 
  print $ma_var; # 1
 
  foreach my $ma_var (10..11)  {
    print $ma_var; # 10, puis 11 -- c'est une autre $ma_var, lexique
  }
 
  print $ma_var; # de nouveau 1
 
package main; # changeons de package;
 
  print $ma_var; # rien, $main::ma_var est indéfinie
 
  print $extractor::ma_var # 1;
 
  $extractor::ma_var = 'foo';
 
package extractor; # retournons;
 
  print $ma_var # foo;

[Ludo167]

j'ai pas le meme comportement que toi du projet, moi j'obtiens cà,

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
 
package extractor;
 
  our $ma_var = 1; # nous l'avons créé
 
  print $ma_var; # 1
 
  foreach my $ma_var (10..11)  {
    print $ma_var; # 10, puis 11 -- c'est une autre $ma_var, lexique
  }
 
  print $ma_var; # de nouveau 1
 
package main; # changeons de package;
 
  print $ma_var; # m'affiche 1
 
  print $extractor::ma_var # m'affiche rien du tout;
 
  $extractor::ma_var = 'foo';
 
package extractor; # retournons;
 
  print $ma_var # foo;

cela ne m'affiche rien pour la variable print $extractor::ma_var

et pour module c bien ca:

En fait, il faut savoir qu'est-ce que tu nommes des modules. Le plus souvent un module est un fichier contenant un package du même nom (fichier extractor.pm avec la première ligne 'package extractor').

[dmitry_ovsianko]

Tâchons encore 1 fois:

Code :

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

1
2
3
4
5
6
7
package extractor; 
  our $ma_var = 1;
package main; # changeons de package; 
  print "main:'",  $extractor::ma_var, "'\n";
  $extractor::ma_var = 'foo'; 
package extractor; # retournons; 
  print "extractor:'",  $ma_var, "'\n";

donne

main:'1'
extractor:'foo'

, non?

[Ludo167]

ton dernier script fonctionne je ne sais pas pourquoi l'autre ne me donne pas le meme résultat que toi.......

Merci