Thread Zeilenweise aus Datei in Array lesen
(14 answers)
Opened by Patrick at 2004-01-14 08:48
also wenn du nur die Zeile brauchst, in der am Anfang PATH steht, koenntest du das folgendermaszen machen:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 my $path = ""; # oder defaultwert unless (open (FH, $filename)) { die "Error: couldn't read from '$filename': $!\n"; } # unless else { while (<FH>) { # path von anfang der zeile bis zur wortgrenze; so wird # z.B. PATHINFO nicht gefunden if ( /^PATH\s*\=\s*(.+?)$/ ) { $path = $1; last; # schleife abbrechen } # if } # while close (FH); } # else perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/ |