Opened by neu at 2010-03-16 12:19
Hi, ich lese aus einer Datei zeilenweisen aus, wenn eine Übereinstimmung mit der aktuellen Zeile und einem Arrayeintrag auftaucht, möchte ich die nächste Zeilen printen.
Last edited: 2010-03-16 12:25:26 +0100 (CET)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
open( IN, "<$Input" );
while (<IN>) {
chomp($_);
for my $i ( 0 .. $#array ) {
if ($_ eq $array[$i]){
print # eine Zeile nach $_ printen???
}
}
}
close(IN);
Last edited: 2010-03-16 12:25:26 +0100 (CET)