boucles foreach PERL

Question

Bonjour,

j'ai un petit probleme, en fait je dois imbriquer des foreach et ca ne marche pas.

lorsque je fais le programme ci dessous ca fonctionne :

@t2=(1,2,3);
@t3=(1,2);
foreach my $f (@t2){
		foreach my $g (@t3){
				print "$f,$g
";
				}
		}

mais dans mon cas les tableaux ne sont pas definis en "dur" et ca ne fonctionne pas :

foreach my $f (@t1){
									
         foreach my $g (@t2){
										foreach my $h (@t3){
											           foreach my $k (@t4){
												foreach my $l (@t5){
													print SCRIPT "$f,$g,$h,$k,$l
";
															 }
														 }
													 }
												 }
											 }


mes cinq tableaux sont definis precedemment dans des boucles et lorsque j'entre dans le premier foreach ca fonctionne mais il ne rentre pas dans le second foreach car il ne connait plus @t2 donc je me demande pkoi ???

Merci d'avance pour votre aide

elbeho · Answer

Bonjour

As-tu essaye de declarer tes tableaux avant ta serie de foreach() ?


my (@t1, @t2,@t3,@t4);  # pas besoin d'y mettre quoi que ce soit

# MAJ de @t1 sinon ca sert a rien
foreach ( @t1 )
    {
    # MAJ de @t2 sinon ce sert a rien
    foreach ( @t2 )
         {
         ......
         }
    }


Juste comme ca, en vitesse.

Cordialement

Boucles foreach PERL

1 réponse

Discussions similaires

Newsletters