Leser: 2
|< 1 2 3 4 5 6 >| | 52 Einträge, 6 Seiten |
eval `cat MyModule.pm`;
eval `cat MyModule.pm`;
1
2
3
4
my @liste = ('A'..'K');
@liste2 = map { ++$_ } @liste;
print "@liste2\n"; # gut und schoen, aber:
print "@liste\n";
1
2
3
4
my @liste = ('A'..'K');
@liste2 = map { ++$_ } @liste;
print "@liste2\n"; # gut und schoen, aber:
print "@liste\n";
map { ++$_ } @liste;
++$_ foreach @liste;
grep { ++$_ } @liste;
|< 1 2 3 4 5 6 >| | 52 Einträge, 6 Seiten |