2014-06-12T11:53:14 pq

2014-06-12T08:03:28 cohama

Code: (dl )

1
2

foreach(@Array){
	$line	= shift(@Array);	# Read the next line to line-Parameter

du iterierst über @Array und hast dadurch das element schon automatisch in $_, dann aber holst du dir das element mit shift aus @Array raus.
geht gar nicht. also es geht schon im sinne von "ich kann den boden auch mit der zahnbürste putzen", aber nicht im sinne von klar, effizient, sinnvoll.

1
2
3
4
5

my @foo = ( 0..9 );
for ( @foo ) {
    my $shift = shift @foo;
    print "\$_: $_\t\$shift: $shift\n"; 
}

1
2
3
4
5

$_: 0	$shift: 0
$_: 2	$shift: 1
$_: 4	$shift: 2
$_: 6	$shift: 3
$_: 8	$shift: 4