Datei nicht vollständig einlesen

[Gustl]

Solche Beispiele helfen mir immer am besten:

Langsam, step by step, ohne Schnickschnack.

open(DATEI, "<source_datei.dat");  
  
while(<DATEI>) { push(@liste1,$_); }  
  
close(DATEI);  
  
$schalter;  
  
foreach $zeile1 (@liste1)  
{  
  if ($zeile1 =~ /1.\0000000/) { $schalter=1; }  
  
  if ($zeile1 =~ /0.\0000000/) { $schalter=0; }  
  
  if ($schalter eq 1) { push(@liste2,$zeile); }  
}  
  
open(DATEI, ">dest_datei.dat");  
  
foreach $zeile2 (@liste2)  
{  
  print DATEI"$zeile2\n";  
}  
  
close(DATEI);