Discussion :

[rukiaa]

Bonjour,
Je suis actuellemeent en train de developper un agenda en perl.
Je rencontre un petit souci.
Je recupere mes variables suite à une soumission d'un bouton submit.
Mais je ne connais pas d'avance le nombre de variable que je vais recuperer.
Je souhaitais savoir s'il existait un test du genre Isset() pour savoir si une variable existe?!
Merci beaucoup. cela m'aiderait enormement.

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
my $variable = param ("toto");
if ($variable){
...........variable definie........
}else{
pas definie}

[Jedai]

Pas tout à fait parce que là tu testes la valeur de vérité de la variable : elle est souvent vraie quand elle existe mais ce n'est pas toujours le cas, imagine par exemple qu'elle vale '0'...
Pour tester l'existence d'une variable, il faut utiliser la fonction defined() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
my $variable = param ("toto");
if (defined($variable)){
  ...........variable definie........
}else{
  pas definie
}

Mais peut-être utiliser simplement les fonctionnalités du module CGI serait-il plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
FETCHING THE NAMES OF ALL THE PARAMETERS PASSED TO YOUR SCRIPT:

      @names = $query->param If the script was invoked with a parameter
 list (e.g. "name1=value1&name2=value2&name3=value3"), the param()
 method will return the parameter names as a list.  If the script was invoked
 as an <ISINDEX> script and contains a string without ampersands (e.g.
 "value1+value2+value3") , there will be a single parameter named
 "keywords" containing the "+"-delimited keywords.
 NOTE: As of version 1.5, the array of parameter names returned will be in
 the same order as they were submitted by the browser. Usually this order is
 the same as the order in which the  parameters are defined in the form
 (however, this isn't part of the spec, and so isn't guaranteed).

Par ailleurs si par 'unset' tu veux dire que le paramètre est passé dans la requête mais sans valeur associée (comme param1 dans 'param1=&param2=3'), alors tu dois plutôt tester si le résultat est une string de longueur nulle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
my $variable = param ("toto");
if ($variable eq ''){
  ...........variable definie........
}else{
  pas definie
}

--
Jedaï

[djibril]

sorry, j'avais oublié le defined

[rukiaa]

ARF, en fait le test sur l'existence de la variable n'est pas possible.
En fait, j'ai une page qui génère selon la demande des listes deroulantes permettant d'ajouter un participant (enregistré dans la base) à une réunion.
Le souci ne vient pas de là, je crée selon le nombre de participant, le nombre de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<select name='select_part.$cpt'>

dans la formulaire.

Le souci est que quand je recupere la variable ca ne peux pas fonctionner puisque je ne connais pas le chiffre qui termine le nom de la variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$participant."$cpt" = $html->param("select_part.$cpt");

je crois qu'une autre méthode s'impose mais je ne sais pas quoi !

[djibril]

si tu ne connais pas les noms de tes parametres à la base, tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my     @names = $query->param;

et faire un test sur l'existence de @names.

[rukiaa]

Merci pour votre aide! Je pensais que pour l'erreur d'affichage le souci venait de la récupération de variable. Mais en fait (je prefere rappeler que je suis novice en perl) cela venait du nommage de mon select. donc pour ceux qui aurait besoin un jour voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
my $nom_select = "select_part".$cpt;
         print" <select name=".$nom_select.">";

->pour afficher selon le nombre de participant voulu, les listes déroulantes.

et la récupération dans l'autre page :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
$html = new CGI;
my $select = "select_part".$compt;
my $part = $html->param("$select");

C'etait tout bête. Qu'elle idiote

Encore Merci pour votre disponibilité!