In Perl, um zu vermeiden, Dateien mehrmals zu öffnen

8

Ich muss aus einer Datei lesen, iterieren und die Zeile in eine andere Datei schreiben. Wenn die Anzahl der Zeilen einen Schwellenwert erreicht, schließen Sie die Ausgabedatei und öffnen Sie eine neue Datei.

Wie vermeide ich es, das Ausgabedatei-Handle jedes Mal zu öffnen und zu schließen, wenn ich eine Zeile aus dem Eingabedatei-Handle wie folgt lese?

%Vor%     
est 19.12.2012, 14:35
quelle

1 Antwort

11

Öffnen Sie die Datei nur, wenn Sie $postfix ändern. Auch können Sie ein bisschen einfacher werden.

%Vor%     
dan1111 19.12.2012, 14:39
quelle

Tags und Links