Problem mit Anonymem Array - #50665 (Allgemeines zu Perl)

Strat

2005-01-10 22:17

User since
2003-08-04
5246 Artikel
ModeratorIn

Code (perl): (dl )

for ($i = 0; $i<$#a; ++$i) {

[update], durch ; ersetzt[/update]
war vor etwa zehn jahren mal sinnvoll (gerade bei groesseren listen), aber das kann man besser lesbar schreiben:

Code (perl): (dl )

for my $i (0..$#a) {

Das Beispiel kann man nebenbei auch kuerzer schreiben:

Code: (dl )

my @abc = ( [ 1..3], [4..6], [7..9] );
foreach my $x (@abc) { 
  for my $y (@x) {
    print "$y\n";
  }
}

oder noch kuerzer, dafuer aber ziemlich unleserlich:

Code: (dl )

1
2

my @abc = ( [ 1..3], [4..6], [7..9] );
for (@abc) { print "$_\n" for @$_ }

\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/