Opened by Tobias Heise at 2004-07-20 01:42
User since
2003-08-04
5872 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5872 Artikel
ModeratorIn
Wenn Dich Zeichenumbrüche stören, ist die Funktion chomp vielleicht interessant. Diese schneidet das letzte Zeichen des übergebenen Strings (...) ab, falls dieses ein Zeilenumbruch ist.
Sehr praktisch, wenn man Dateien einliest und die Umbrüche weg sollen.
Etwa:
(ungetestet aber modulo Tippfehler richtig)\n\n
<!--EDIT|Crian|1090320545-->
Sehr praktisch, wenn man Dateien einliest und die Umbrüche weg sollen.
Etwa:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
my $datei = '/home/crian/fette_datei.txt';
open (IN, $datei) or die "Kann '$datei' nicht öffnen ($!).";
while (<IN>) {
chomp; # Umbruch wegschmeißen
next if m/^\s*$/; # nächste Zeile, falls diese leer ist
next if m/^\s*#/; # Nächste Zeile, falls Zeile Kommentar ist
.... # tu was mit dieser Zeile (Inhalt ist in der Variablen $_)
}
close IN or warn "Kann '$datei' nicht schließen ($!).";
(ungetestet aber modulo Tippfehler richtig)\n\n
<!--EDIT|Crian|1090320545-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite