Opened by bieber at 2007-07-02 09:53
User since
2006-11-29
340 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-11-29
340 Artikel
BenutzerIn
Nur um zu zeigen, dass es auch so geht, wie du zu erst gedacht hast:
Das mit dem \n hätte funktioniert, wenn du es in doppelte Anführungszeichen gesetzt hättest.
In einfachen ist es ja nichts weiter als ein \ und ein n.
Und falls die Zeilen gechompt sind müsstest du eben nicht auf \n prüfen, sondern auf einen Leerstring, falls nicht, muss an das # auch noch ein \n dran - natürlich wieder in doppelten Anführungszeichen.
Also so:
Wenn du es andersherum haben möchtest kannst du eben ne anstatt eq benutzen.
MfG\n\n
<!--EDIT|PerlProfi|1183359609-->
Das mit dem \n hätte funktioniert, wenn du es in doppelte Anführungszeichen gesetzt hättest.
In einfachen ist es ja nichts weiter als ein \ und ein n.
Und falls die Zeilen gechompt sind müsstest du eben nicht auf \n prüfen, sondern auf einen Leerstring, falls nicht, muss an das # auch noch ein \n dran - natürlich wieder in doppelten Anführungszeichen.
Also so:
Code: (dl
)
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;
}
Wenn du es andersherum haben möchtest kannst du eben ne anstatt eq benutzen.
MfG\n\n
<!--EDIT|PerlProfi|1183359609-->