Récupérer une valeur via un autre script
Bonjour :)
J'ai un script, referer.cgi qui récupère le referer du client. Le code se présente comme:
Code:
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:
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 :mrgreen:
