Scalar found where operator expected at...
Bonjour,
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
my $le_pays=1;
my @pays;
my $data;
local %form = &UltimateAuction::fetch_form; # Onrécupere les champs du formulaire
UltimateAuction::set_cookie("Username","",0,"Password","",0);
# On definie la variable $pays qui contient l'id du pays
if ($form{'id_pays'}) $le_pays = $form{'id_pays'}; # C'est la ligne 56
else $le_pays = 1; # Sinon, valeur par defaut (a changer, recuperer unevaleur par defaut en fonction du domaine .fr .com...) |
En testant mon CGI, j'obtient le message suivant:
Code:
1
2
3
4
5
|
Scalar found where operator expected at /home/v2/cgi-bin/regform.pl line 56, near ") $le_pays"
(Missing operator before $le_pays?)
syntax error at /home/v2/cgi-bin/regform.pl line 56, near ") $le_pays "
Execution of /home/v2/cgi-bin/regform.pl aborted due to compilation errors. |
Je ne comprend pas ou est mon erreur de syntaxe...a vrai dire, je ne comprend rien au Perl: je dois modifier des scripts rapidement et je n'ai pas le temps d'apprendre le langage, donc si quelqu'un aurait une solution a mon problème, ca me sauverait la vie!
