Discussion :

[horec]

Bonjour,

Je débute en Perl et j'aurai voulu savoir si il était possible d'utiliser des noms de variables dynamiques en perl. En effet je voulais utiliser ce type de variable pour récupérer des informations d'un formulaire html :

Code :

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

<input size=3 name="Toto-<%$Variable%>">

Comment est-il possible de récupérer la valeur de mes variables ?

Merci d'avance

[vodevil]

Heu peut tu etre plus précis

[horec]

J'utilise une boucle ayant pour variable $Variable pour créer plusieurs champs de saisie. Cette boucle me crée donc les variables :

• Toto-xxx
  Toto-yyy
  Toto-zzz
  ...

Je voudrais pouvoir afficher ces variables : je voudrais pouvoir faire quelquechose comme :

Code :

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

1
2
my $result = "Toto-" . $Variable; #$result contient le nom de la variable voulue sous forme de string
print $( $result );

Je voudrais afficher le contenu d'une variable dont le nom lui-même est variable ...

J'espère avoir été plus clair.

[2Eurocents]

L'utilisation de noms de variables dynamique, même si elle est possible, est une très mauvaise idée, en Perl.

En effet, un des effets de l'utilisation de variables aux noms dynamiques est qu'il n'est plus possible d'utiliser le garde-fou que représente le controle strict des variables, avec obligation de déclaration (use strict.

Cependant, tout n'est pas perdu.

En effet, pourquoi ne pas utiliser le mécanisme des hachages pour simuler ces variables au noms dynamique ?

Code :

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

1
2
3
4
5
my %toto;
 
$toto{xxx}=50;
$toto{yyy}=100;
$toto{zzz}=150;

Ceci me semble un pis-aller plus qu'acceptable !

Bon courage.

[horec]

Je crois que je vais essayer ca.

Merci beaucoup

[Jedai]

Voici un bout de la doc du module CGI qui répond exactement à la question posée :

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
 
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).
 
FETCHING THE VALUE OR VALUES OF A SINGLE NAMED PARAMETER:
 
    @values = $query->param('foo');
 
              -or-
 
    $value = $query->param('foo');
 
Pass the param() method a single argument to fetch the value of the named parameter. If the parameter is multivalued (e.g. from multiple selections in a scrolling list), you can ask to receive an array. Otherwise the method will return a single value.
 
If a value is not given in the query string, as in the queries ``name1=&name2='' or ``name1&name2'', it will be returned as an empty string. This feature is new in 2.63.
 
If the parameter does not exist at all, then param() will return undef in a scalar context, and the empty list in a list context.

La documentation de Perl est très conséquente et très complète, profitez-en !!!!

--
Jedaï

[horec]

Voila, le module CGI fait exactement ce que je voulais.

Merci

[2Eurocents]

Alors, il ne faudra pas oublier d'ajouter le tag [Résolu] sur le sujet, en partant