Datei nicht vollständig einlesen

[Sascha Hausberg]

Hallo,

ich möchte aus einer Datei bestimmte Bereiche in eine neue Datei kopieren. Dazu lese ich die Datei per Filehandle ein und übergebe sie zeilenweise in die neue Datei.

Die Datei ist folgendermaßen aufgebaut:

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
...

Die Zeilen mit "1.000000" und folgende Textzeilen möchte ich kopieren, die Zeilen mit "0.000000" und folgende Textzeilen sollen ausgelassen werden. Die Anzahl der mit Zeile1-3 markierten Zeilen ist variabel.

Wie kann ich das in Perl realisieren?

Vielen Dank für die Hilfe