Thread Ausgabe einer Zeile in Perl (18 answers)
Opened by Catherina at 2012-03-23 09:21

payx
 2012-03-26 12:10
#157039 #157039
User since
2006-05-04
564 Artikel
BenutzerIn

user image
Hallo Catherina,

oha, das gut zu lösen wird nicht ganz einfach. In den Beispieldatensätzen, die Du gepostet hast, sind nicht in jedem Datensatz Datumswerte enthalten. Möglicherweise werden Datumswerte in unterschiedlichen Formaten vorkommen. In was für einem Format muss der Benutzer den Datumswert eingeben?

Hier eine Minimallösung für den einfachst denkbaren Fall:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#!/usr/bin/perl

use strict;
use warnings;

print "Bitte Datum eingeben: ";
my $datum = <>;
chomp $datum;
# Ergänze hier: Prüfung, ob das Datum das richtige Format hat, ggf. Abbruch mit Fehlermeldung

my $inFile = "h.txt";

open (my $inFH, "<", $inFile) || die "Die Datei wurde nicht gefunden: $!\n";

{
    local $/ = "====> ";
    while (<$inFH>) {
        next unless /$datum/;
        chomp;
        print $_;
        last;
    }
}
close ($inFH);


Wenn der Benutzer 11/11/11 eingibt, wird der zweite Datensatz gefunden.

HTH
Grüße
payx
Last edited: 2012-03-26 12:11:57 +0200 (CEST)

View full thread Ausgabe einer Zeile in Perl