Datei auslesen!

[Siechfred]

Tag Florian.

Flo_0815 will ich erkennen da danach immer Date kommt! Dann kann auch Flo_0815 variable sein!

Angenommen, du hättest irgendwo in einer riesigen Textdatei zwei unmittelbar aufeinander folgende Zeilen stehen:

Flo_0815
Date 05-09-23 Time 13:33:33

Das Prinzip wäre dann folgendes:

my $found = 0;  
my $user = "Flo_0815";  
my $wert;  
open(FH, "datei.txt") or die "Error: $!";  
while(<FH>) {  
  chomp($_);  
  # gefunden? dann lies die nächste Zeile  
  # und brich die Schleife ab  
  if($found == 1) {  
    $_ =~ /^Date\s(.+?)\sTime/;  
    $wert = $1;  
    last;  
  }  
  # noch nicht gefunden?  
  # dann vergleiche die aktuelle Zeile  
  # mit dem gesuchten Usernamen  
  if($found == 0 && $_ eq $user) {  
    $found = 1;  
  }  
}  
close(FH);

Ergibt als Wert "05-09-23".

Siechfred