Discussion :

[Mr Hyde]

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!

[djibril]

apres else il manque l'accolade ouvrante qui devra etre ferme apres

[Mr Hyde]

merci djibril!
je ne savais pas qu'il fallait mettre des accolades lorsqu'il n'y a qu'une instruction derriere un if ou un else.

[GLDavid]

Si c'est bon, n'oublies pas de mettre le tag Résolu.
Merci d'avance.

@++

[Mr Hyde]

Pardon, il m'arrive parfois d'ouiblier! Je le mettout de suite...