[Perl] Autoconstruire du code perl dans un switch

[Stéphane Téletchéa]

Hello,

A tout hasard, tu ne fais pas une lecture de trop dans la boucle ?

0..scalar(@tab) -> 0..scalar(@tab*)-1*

Sinon, pas bien regardé en détail :-)

HTH,

Stéphane

Le 03/07/2024 à 09:47, Patrice Karatchentzeff a écrit :
> Salut,
>
> J'ai un code qui fonctionne bien :
>
> while (1) {
>    $choice = randomize(3);
>
>    switch($choice) {
>      case 1  {($search, $target) = ("truc1", "truc2") };
>      case 2  {($search, $target) = ("truc3", "truc4")} ;
>      case 3  {($search, $target) = ("truc5", "truc6")};
>    };
>
> Pour automatiser mon code, j'extrait les « trucs » désormais d'un
> fichier et je les place dans un tableau de tableau. La longueur du
> tableau peut varier selon le nombre de lignes de « trucs ». Je
> voudrais auto-générer le code de mon switch :
>
> while (1) {
>    $choice = randomize(scalar(@tab);
>    switch($choice) {
>    for my $line (0..scalar(@tab) {
>         eval case, $line+1, "{(\$search, \$target) =
> (\"$tab[$line][0]\", \"$tab[$line][1]\") }";
> }
>    };
>
> J'ai alors un Bad case statement (invalid case value?). Donc le
> $line+1 ne passe pas (si je fais un print à la place du eval, le code
> perl est correct.
>
> Qu'est-ce que je rate ?
>
> Merci
>
> PK
>
-- 
Assistant Professor, USBB, UMR 6286 CNRS, Bioinformatique Structurale
UFR Sciences et Techniques, 2, rue de la Houssinière, Bât. 25, 44322 Nantes cedex 03, France
Tél : +33 251 125 636 / Fax : +33 251 125 632
http://www.us2b.univ-nantes.fr/  -http://www.steletch.org
-------------- section suivante --------------
Une pièce jointe HTML a été nettoyée...
URL: <http://listes.mongueurs.net/archives/perl/attachments/20240703/ebc01e98/attachment.html>