Datei nicht vollständig einlesen

[迪拉斯]

Hey,
Hausaufgabe: erkläre den Algorithmus im Forum.

#!perl  
use strict;  
use diagnostics;  
  
my $skipflag = 1; # unvollständigen Datensatz am Anfang berücksichtigen  
while (<DATA>) {  
    if (/1\.000000$/) {  
        $skipflag = 0;  
        print;  
    } elsif (/0\.000000$/) {  
        $skipflag = 1;  
    } else {  
        print unless $skipflag;  
    };  
};  
  
__DATA__  
TextTextText....1.000000  
Zeile1  
Zeile2  
Zeile3  
...  
TextTextText....1.000000  
Zeile1  
Zeile2  
Zeile3  
...  
TextTextText....0.000000  
Zeile1  
Zeile2  
Zeile3  
...  
TextTextText....0.000000  
Zeile1  
Zeile2  
Zeile3  
...  
TextTextText....1.000000  
Zeile1  
Zeile2  
Zeile3  
...