fonction require()

Version imprimable

15/04/2006, 19h33
mauroyb0

fonction require()
bonjour,
J'ai un petit soucis avec la fonction require...

dans un script (query.pl), j'ai :
Code:

1 2 3 4 #!/usr/bin/perl use strict; require ("connection.pl");
dans mon fichier appelé, j'ai :
Code:

1 2 3 4 5 #!/usr/bin/perl use strict; #connection a la base my $connection = DBI->connect("DBI:Pg:database=my_db","","") or die "probleme de connection".DBI->errstr();
mais le fichier query.pl me retourne :

Code:

Global symbol "$connection" requires explicit package name at /var/www/cgi-bin/donnees_tables/requete.pl line 46.

indiquant la ligne ou j'utilise $connection... pourtant j'ai le my dans mon fichier en require... alors je comprend pas...
15/04/2006, 20h49
Jedai

require() n'est pas un include, il ne recopie pas le code à son emplacement, il provoque simplement l'exécution du script indiqué. Et cette exécution ne se fait pas dans la même unité lexicale (dans la même portée), c'est pourquoi ton $connexion qui est une variable locale (puisque déclarée par my()) n'est pas disponible dans ton programme principal.
Pour que $connexion soit disponible, il faudrait qu'elle soit une variable globale, donc déclarée par our().
Néanmoins ton procédé n'est pas très propre : normalement, un module doit être inclus dans un package (espace de nom) différent.
Pour plus de détails sur les packages et les modules, consulte la FAQ.

--
Jedaï

Je dai a raison fait un package,

voici la base d'un package

Code:

1
2
3
4
5
6
7
8
9
10
11
package Test;
use Exporter;
@ISA=('Exporter');
 
# Variables , tableau ou fonction visible de l'extérieur
@EXPORT_OK=('FONTION VISIBLE DE L'EXTERIEUR');
 
 
TON CODE FONCTION ETC...
 
1;

voici un exemple simple

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
29
30
31
32
33
34
35
36
37
38
39
40
package Test;
use Exporter;
@ISA=('Exporter');
 
# Variables, tableau ou fonction visible de l'extérieur
@EXPORT_OK=('coucou','message','$i','%l','@m');
 
 
#--------------------------------
# Dit coucou
 
sub coucou {
  return "coucou";
}
 
#-------------------------------
# répond au mésage message
 
sub message {
  my $var = shift;
  my $string = "Vous avez dit : $var";
  return $string;
}
 
#-------------------------------
# variables, tableau, hash
 
$i = "maison";
 
%l = (
  bebe => "biberon",
  gna  => "Rah il chiale a trois heure du mat :@"
);
 
 
@m = ("yo!");
 
 
 
1;

Pour invoquer ce package rien de plus simple

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
29
bidon.pl
 
#!/usr/bin/perl -w
use strict;
use Test ('$i','%l','@m');
 
 
# execution de coucou();
 
my $h = coucou();
print $h;
 
# execution de message
my $s = "je suis scaleo et toi ?";
   $s = message($s);
print $s;
 
 
# variables, tableau, hash
 
 
print "$i\n";
 
foreach my $key (sort keys %l) {
  print "$key : valeur -> $l{$key}\n"; 
}
 
 
print @m;

comme tu peut voir c'est très simple et sa permet de bien séparer les différentes partie d'un programme bref c'est tout benef :D