7 Einträge, 1 Seite |
1
2
3
if($string !~ /[\s\n\r]/){
print '$string enthält keine Whitespaces und keine Newlines!';
}
print "Nur Wortzeichen" if $string =~ /^\w$/;
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 ($!).";
7 Einträge, 1 Seite |