<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <meta name="Generator" content="Microsoft Word 15 (filtered medium)"> <style></style> </head> <body lang="FR" link="#0563C1" vlink="#954F72" style="word-wrap:break-word"> <div class="WordSection1"> J'aime bien la logique KISS, je suis très feignant (pas paresseux !) 😉<o:p></o:p> <o:p> </o:p> -----Message d'origine----- De : perl-bounces@mongueurs.net <perl-bounces@mongueurs.net> De la part de Patrice Karatchentzeff Envoyé : mercredi 3 juillet 2024 17:22 À : Liste francophone pour les questions générales sur Perl <perl@mongueurs.net> Objet : Re: [Perl] Autoconstruire du code perl dans un switch <o:p> </o:p> Désolé, je n'avais pas vu ta réponse...<o:p></o:p> <o:p> </o:p> Effectivement, l'idée est bonne et m'évite de passer par un eval.<o:p></o:p> J'étais obsédé par l'idée de réécrire le même code, alors que ton idée le simplifie : c'est une bien meilleure approche !<o:p></o:p> <o:p> </o:p> Merci<o:p></o:p> <o:p> </o:p> Le mer. 3 juil. 2024 à 10:11, Guerlais, Patrice (ITOP TD) - AF <<a href="mailto:paguerlais@airfrance.fr">paguerlais@airfrance.fr</a>> a écrit :<o:p></o:p> ><o:p> </o:p> > Bonjour,<o:p></o:p> ><o:p> </o:p> > je ne suis pas sûr de comprendre pas ce que tu veux faire : tel que je <o:p></o:p> > comprends ton code qui fonctionne, tu initialises deux variables <o:p></o:p> > $search et $target avec des valeurs qui dépendent de $choice, puis <o:p></o:p> > probablement (non montré) tu fais un traitement avec elles. Ok<o:p></o:p> ><o:p> </o:p> > Dans ta deuxième version, et toujours si je comprends ce que tu veux faire, tu veux récupérer le n-ième (n généré aléatoirement) couple de valeurs depuis un tableau, affecter les valeurs à deux variables ($search et $target), puis probablement (non montré) faire un traitement dessus. Pour ça tu précharges le fichier dans un tableau pour éviter de le relire à chaque itération. Alors pourquoi t'embêter avec switch/case, puisque tu récupères immédiatement les valeurs dans le tableau ?<o:p></o:p> ><o:p> </o:p> > # Pré-chargement de @tab<o:p></o:p> > ...<o:p></o:p> ><o:p> </o:p> > while (1)<o:p></o:p> > {<o:p></o:p> >         ($search, $target) = $tab[randomize(@tab)]->[0..1] ;<o:p></o:p> ><o:p> </o:p> >         # probablement un traitement autour de $search et $target ici<o:p></o:p> >         ...<o:p></o:p> > }<o:p></o:p> ><o:p> </o:p> > Mais j'ai peut-être tout compris de travers...<o:p></o:p> > Patrice<o:p></o:p> ><o:p> </o:p> ><o:p> </o:p> > -----Message d'origine-----<o:p></o:p> > De : <a href="mailto:perl-bounces@mongueurs.net">perl-bounces@mongueurs.net</a> <<a href="mailto:perl-bounces@mongueurs.net">perl-bounces@mongueurs.net</a>> De la <o:p></o:p> > part de Patrice Karatchentzeff Envoyé : mercredi 3 juillet 2024 09:47 <o:p></o:p> > À : Perl <<a href="mailto:perl@mongueurs.net">perl@mongueurs.net</a>> Objet : [Perl] Autoconstruire du code <o:p></o:p> > perl dans un switch<o:p></o:p> ><o:p> </o:p> > Salut,<o:p></o:p> ><o:p> </o:p> > J'ai un code qui fonctionne bien :<o:p></o:p> ><o:p> </o:p> > while (1) {<o:p></o:p> >   $choice = randomize(3);<o:p></o:p> ><o:p> </o:p> >   switch($choice) {<o:p></o:p> >     case 1  {($search, $target) = ("truc1", "truc2") };<o:p></o:p> >     case 2  {($search, $target) = ("truc3", "truc4")} ;<o:p></o:p> >     case 3  {($search, $target) = ("truc5", "truc6")};<o:p></o:p> >   };<o:p></o:p> ><o:p> </o:p> > 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 :<o:p></o:p> ><o:p> </o:p> > while (1) {<o:p></o:p> >   $choice = randomize(scalar(@tab);<o:p></o:p> >   switch($choice) {<o:p></o:p> >   for my $line (0..scalar(@tab) {<o:p></o:p> >        eval case, $line+1, "{(\$search, \$target) = (\"$tab[$line][0]\", \"$tab[$line][1]\") }"; }<o:p></o:p> >   };<o:p></o:p> ><o:p> </o:p> > J'ai alors un Bad case statement (invalid case value?). Donc le<o:p></o:p> > $line+1 ne passe pas (si je fais un print à la place du eval, le code perl est correct.<o:p></o:p> ><o:p> </o:p> > Qu'est-ce que je rate ?<o:p></o:p> ><o:p> </o:p> > Merci<o:p></o:p> ><o:p> </o:p> > PK<o:p></o:p> ><o:p> </o:p> > --<o:p></o:p> >       |\      _,,,---,,_           Patrice KARATCHENTZEFF<o:p></o:p> > ZZZzz /,`.-'`'    -.  ;-;;,_   <a href="mailto:patrice.karatchentzeff@gmail.com"> mailto:patrice.karatchentzeff@gmail.com</a><o:p></o:p> >      |,4-  ) )-,_. ,\ (  `'-'<o:p></o:p> >     '---''(_/--'  `-'\_)<o:p></o:p> > _______________________________________________<o:p></o:p> > Perl mailing list<o:p></o:p> > <a href="mailto:Perl@mongueurs.net">Perl@mongueurs.net</a><o:p></o:p> > <a href="http://listes.mongueurs.net/mailman/listinfo/perl"> http://listes.mongueurs.net/mailman/listinfo/perl</a><o:p></o:p> > Attention, les archives sont publiques <o:p></o:p> > [https://img.static-af.com/images/media/C031A655-6574-400A-A8754B3A9D2<o:p></o:p> > BD37E/source/logo-af-215x60]<<a href="http://www.airfrance.com">http://www.airfrance.com</a>><o:p></o:p> > --<o:p></o:p> ><o:p> </o:p> > Accédez aux meilleurs tarifs Air France, gérez vos réservations et <o:p></o:p> > enregistrez-vous en ligne sur <a href="http://www.airfrance.com"> http://www.airfrance.com</a> Find best Air <o:p></o:p> > France fares, manage your reservations and check in online at <o:p></o:p> > <a href="http://www.airfrance.com">http://www.airfrance.com</a> ________________________________ Les données <o:p></o:p> > et renseignements contenus dans ce message peuvent être de nature <o:p></o:p> > confidentielle et soumis au secret professionnel et sont destinés à <o:p></o:p> > l'usage exclusif du destinataire dont les coordonnées figurent ci-dessus. Si vous recevez cette communication par erreur, nous vous demandons de ne pas la copier, l'utiliser ou la divulguer. Nous vous prions de notifier cette erreur à l'expéditeur et d'effacer immédiatement cette communication de votre système. Société Air France - Société anonyme au capital de 126 748 775 euros - RCS Bobigny (France) 420 495 178 - 45, rue de Paris, Tremblay-en-France, 95747 Roissy Charles de Gaulle CEDEX The data and information contained in this message may be confidential and subject to professional secrecy and are intended for the exclusive use of the recipient at the address shown above. If you receive this message by mistake, we ask you not to copy, use or disclose it. Please notify this error to the sender immediately and delete this message from your system. Société Air France - Limited company with capital of 126,748,775 euros - Bobigny register of companies (France) 420 495 178 - 45, rue de Paris, Tremblay-en-France, 95747 Roissy Charles de Gaulle CEDEX ________________________________ Pensez à l'environnement avant d'imprimer ce message.<o:p></o:p> > Think of the environment before printing this mail.<o:p></o:p> > _______________________________________________<o:p></o:p> > Perl mailing list<o:p></o:p> > <a href="mailto:Perl@mongueurs.net">Perl@mongueurs.net</a><o:p></o:p> > <a href="http://listes.mongueurs.net/mailman/listinfo/perl"> http://listes.mongueurs.net/mailman/listinfo/perl</a><o:p></o:p> > Attention, les archives sont publiques<o:p></o:p> <o:p> </o:p> <o:p> </o:p> <o:p> </o:p> -- <o:p></o:p>       |\      _,,,---,,_           Patrice KARATCHENTZEFF<o:p></o:p> ZZZzz /,`.-'`'    -.  ;-;;,_   <a href="mailto:patrice.karatchentzeff@gmail.com"> mailto:patrice.karatchentzeff@gmail.com</a><o:p></o:p>      |,4-  ) )-,_. ,\ (  `'-'<o:p></o:p>     '---''(_/--'  `-'\_)<o:p></o:p> _______________________________________________<o:p></o:p> Perl mailing list<o:p></o:p> <a href="mailto:Perl@mongueurs.net">Perl@mongueurs.net</a><o:p></o:p> <a href="http://listes.mongueurs.net/mailman/listinfo/perl">http://listes.mongueurs.net/mailman/listinfo/perl</a><o:p></o:p> Attention, les archives sont publiques<o:p></o:p> </div> <a href="http://www.airfrance.com"><img src="https://img.static-af.com/images/media/C031A655-6574-400A-A8754B3A9D2BD37E/source/logo-af-215x60" width="215" height="60" border="0"></a> -- Accédez aux meilleurs tarifs Air France, gérez vos réservations et enregistrez-vous en ligne sur <a href="http://www.airfrance.com" target="_blank">http://www.airfrance.com </a> Find best Air France fares, manage your reservations and check in online at <a href="http://www.airfrance.com" target="_blank">http://www.airfrance.com </a> <hr align="left"> Les données et renseignements contenus dans ce message peuvent être de nature confidentielle et soumis au secret professionnel et sont destinés à l'usage exclusif du destinataire dont les coordonnées figurent ci-dessus. Si vous recevez cette communication par erreur, nous vous demandons de ne pas la copier, l'utiliser ou la divulguer. Nous vous prions de notifier cette erreur à l'expéditeur et d'effacer immédiatement cette communication de votre système. Société Air France - Société anonyme au capital de 126 748 775 euros - RCS Bobigny (France) 420 495 178 - 45, rue de Paris, Tremblay-en-France, 95747 Roissy Charles de Gaulle CEDEX The data and information contained in this message may be confidential and subject to professional secrecy and are intended for the exclusive use of the recipient at the address shown above. If you receive this message by mistake, we ask you not to copy, use or disclose it. Please notify this error to the sender immediately and delete this message from your system. Société Air France - Limited company with capital of 126,748,775 euros - Bobigny register of companies (France) 420 495 178 - 45, rue de Paris, Tremblay-en-France, 95747 Roissy Charles de Gaulle CEDEX <hr align="left"> Pensez à l'environnement avant d'imprimer ce message. Think of the environment before printing this mail. </body> </html>