Discussion :

[zoscoy]

Bonjour,

Je suis en train de faire la réécriture d'un projet Python en Perl et j'ai un problème de "multitération" je souhaite itérer les indices de plusieurs tableaux en même temps, (pas de boucles imbriquées).

En Python, j'ai trouvé la solution, mais en Perl je ne sais pas comment faire.

merci.

Python:

Code :

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

1
2
3
4
5
6
tab = zip(tabimg, tabphrase)
 
BD = open("Bande dessinée.html", "a")
for src, alt in tab:
    BD.write("            <img src=\"img/{}\" alt=\"{}\">\n".format(src, alt))
BD.close

Perl:

Code :

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

1
2
3
4
5
6
7
8
 
my @tab = zip(@tabimg, @tabphrase);
open (BD, ">> Bande dessinée.html") or die ("oups !");
foreach my $src, $alt (@tab)
{
    print "            <img src=\"img/$src\" alt=\"$alt\">\n";
}
close(BD);

[Lolo78]

Ceci devrait convenir, je pense:

Code :

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

1
2
3
4
 
for my $i (0..$#tabimg) {
     print "            <img src=\"img/$tabimg[$i]\" alt=\"$tabphrase[$i]\">\n";
}

Ou peut-être pourrais-tu simplifier tes guillemets comme suit:

Code :

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

1
2
3
4
 
for my $i (0..$#tabimg) {
     print qq{            <img src="img/$tabimg[$i]" alt="$tabphrase[$i]">\n};
}

Autre solution:

Code :

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

1
2
for my $src (@tabimg) {
     print qq{            <img src="img/$tabimg[$i]" alt="}, shift @tabphrase, qq{">\n};

Mais cette dernière solution vide le tableau @tabphrase, ce qui est gênant seulement si tu en as encore besoin ailleurs dans ton code.

Je n'ai pas testé les bouts de code ci-dessus, mais je pense que ça devrait marcher.

Sinon, la troisième partie de mon tutoriel sur la programmation fonctionnelle montre comment travailler sur deux listes en même temps. Mais ce serait certainement du overkill que d'utiliser cette méthode pour ton cas très simple.

Enfin, il y a le module Lists::MoreUtils, qui contient les fonctions each_arrayref et each_array répondant sans doute à ton besoin.

[Philou67430]

Regarde le module List::MoreUtils qui contient plusieurs fonctions qui vont répondre à ta demande :
- zip/mesh (solution à peu près identique à celle écrite en Python, il te faut par contre un l'itérateur adapté qui lit autant de valeurs dans la tableau que de tables fusionnées)
- each_array : l'itérateur qu'il te faut
- pairwise : un opérateur programmable de fusion de 2 tables

[Lolo78]

J'avais déjà mentionné le module Lists::MoreUtils dans ma réponse, mais dans ce cas précis, la solution en Perl de base est tellement simple que je doute de l'intérêt de chercher des complications. Un marteau-pilon n'est pas forcément la solution la plus efficace pour tuer un moustique.

[Philou67430]

Ooops, je n'avais pas tout lu.