Opened by Gast at 2008-10-08 19:54
User since
2006-03-29
1520 Artikel
BenutzerIn
2006-03-29
1520 Artikel
BenutzerIn
Das geht auch mit map.
oder in der foreach einen "speziellen" wert zuteilen und dann nachher mit grep diesen speziellen Wert ausfiltern.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
my @values = 1 .. 10;
@values = map {
if ( $_ % 2 ) { # bedingung
print "aktion: $_\n"; # aktion
(); # entferne
}
else {
$_
}
} @values;
print "@values\n";
oder in der foreach einen "speziellen" wert zuteilen und dann nachher mit grep diesen speziellen Wert ausfiltern.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
my $ENTFERNE = [];
my @values = 1 .. 10;
for my $value ( @values ) {
if ( $value % 2 ) {
print "aktion: $value\n";
$value = $ENTFERNE;
}
}
@values = grep { !( ref $_ eq 'ARRAY' && $_ == $ENTFERNE ) } @values;
print "@values\n";
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de