UNItopia News: Brett Computer, Gruppe Allgemeines, Artikel 1759

-------------------------------------------------------------------------------
Titel: Re: Perl-Frage
Artikel: 1759                                          Bezug: 1758
Verfasser: Croft                                       Datum: 03.08.05 14:26:00
-------------------------------------------------------------------------------
Kommt sicher noch auf den Einzelfall an.  Falls du gerade
nur die Include-Zeilen auslesen willst und sonst nichts,
wuerde ich folgendes verwenden:

open(INPUT, "...");
while(<INPUT>) {
    chop;
    if ($_ eq "*INCLUDE") { # bzw allgemeineren Test
        my $inputfile = <INPUT>;
        chop($inputfile);
        print "Include: $inputfile\n";
    }
}
close(INPUT);

Croft