Discussion :

[Olivier Regnier]

Bonjour

J'ai un script, referer.cgi qui récupère le referer du client. Le code se présente comme:

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
#!/usr/bin/perl -w 
 
# Define variable
my $origin="";
 
# visitor's origin
if($ENV{'HTTP_REFERER'} eq "")
{
     $origin="Connection directe";
} 
else
{
     $origin=$ENV{'HTTP_REFERER'};
}
return $origin;
1;

Je désire récupérer la valeur dans un autre fichier:

Code :

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

1
2
#!/usr/bin/perl -w
require "referer.cgi";

Comment puis-je récupérer le contenu de la variable $origin ?

Un require ne suffit pas autrement, je vais obtenir un message du genre, Global symbol "$origin" requires explicit package name.

Merci d'avance

[Jedai]

Si tu voulais vraiment faire ça, il serait souhaitable que tu crées un module. D'un autre côté, créer un module pour exporter une simple variable (fondamentalement, il est préférable de n'exporter que des fonctions à partir d'un module) qui prend une ligne à définir dans le script qui l'utilise ne me semble pas très avisé...

Code :

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

my $origin = referer() || "Connection directe";

--
Jedaï

[Olivier Regnier]

Ok merci bien