Salut,
J'ai écrit un script cgi en perl qui prend des données input à partir d'un formulaire web, exécute plusieurs tâches et renvois un résultat dans une page html.
Le formulaire web en question contient deux champs de saisie : un champs textarea nommé "seq" et un champs "parcourir" nommé "seqfile" sachant qu'on ne peut utiliser que l'un ou l'autre. Ainsi, j'ai commencé mon script par écrire ce qui suit :
Voila, ce code me parait peu robuste puisqu'il ne fonctionne pas toujours comme je le souhaite et ça me dépasse. Je crois avoir un problème avec les booléans !! ché pas. J'attends vos critiques ?
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
17
18
19
20
21
22
23
24
25
26
27
28 #déclarations my $seq = $form->param('seq'); my $seqfile = $form->param('seqfile'); #Si le champs textarea est vide => les données input sont saisie à partir du fichier dont le chemin d'accées est fixé dans le champs "parcourir" if ($seq eq '') { open (FILE, $seqfile)||die "can not open $seqfile : $!"; @infile=<FILE>; close (FILE); $input=join('',@infile); } #Si le champs "parcourir" est vide => les données input sont saisie à partir du champs textarea elsif ($seqfile eq '') { $input=$seq; } #Si les 2 champs sont vides => message d'erreur 1 elsif (($seq eq '') and ($seqfile eq '')) { print "ERREUR 1 \n\n"; } #Si les 2 champs sont non vides => message d'erreur 2 elsif (($seq ne '') and ($seqfile ne '')) { print "ERREUR 2 !! \n\n"; }
Merci d'avance.
Partager