1 for (my $i = 0; $i < @libs; $i++) { 2 my $file = $libs[$i]{'file'}; 3 print "reading $file\n"; 4 } 1 foreach my $lib (@libs) { 2 my $file = $lib{'file'}; 3 print "reading $file\n"; 4 }
In reply to foreach problem by dsula
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |