Bonjour,

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!