Opened by leo11 at 2008-08-14 08:06
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
leo11+2008-08-24 09:04:28--Würde mir jemand einfach mal zeigen wie man das macht?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my @rows = map {chomp; $_} (<DATA>);
print Dumper \@rows;
my @filtered = grep { $_->[2] == 20 } map { [split /;/, $_] } @rows;
print Dumper \@filtered;
__DATA__
Zeile1;;100;;
Zeile2;;60;;
Zeile3;;20;;
Zeile4;;20;;
Zeile5;;40;;
leo11+2008-08-24 09:04:28--Als nächstes möchte ich alle Zeilen bis zur 20 aus @zeilen nehmen und in ein extra Array zu speichern. Wie kann man das machen?
Code: (dl
)
1
2
3
4
5
6
my @first_ones;
for my $row (@rows) {
last if [split /;/, $row]->[2] == 20;
push @first_ones, $row;
}
print Dumper \@first_ones;