![]() |
|< 1 2 >| | ![]() |
11 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
# Zeilen nicht gechompt
foreach my $zeile (@datei) {
next if $zeile eq "#\n";
next if $zeile eq "\n";
print $zeile;
}
# oder: Zeilen sind gechompt
foreach my $zeile (@datei) {
next if $zeile eq '#';
next if $zeile eq '';
print $zeile;
}
1 2 3 4 5
foreach my $zeile (@datei) { next if $zeile eq "#\r"; next if $zeile eq "\r"; print $zeile; }
![]() |
|< 1 2 >| | ![]() |
11 Einträge, 2 Seiten |