Thread Zeilenweise aus Datei in Array lesen (14 answers)
Opened by Patrick at 2004-01-14 08:48

Strat
 2004-01-14 13:02
#79133 #79133
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
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/

View full thread Zeilenweise aus Datei in Array lesen