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

Question

Ich muss aus einer Datei lesen, durchlaufen Sie es und schreiben Sie die Zeile in eine andere Datei. Wenn die Anzahl der Zeilen einen Schwellenwert erreicht, schließen Sie den Ausgabedateipunkt und öffnen Sie einen neuen.

Wie vermeide ich das Öffnen und Schließen der Ausgabedatei behandeln jedes Mal, wenn ich eine Zeile aus der Eingabedatei behandeln wie unten lesen?

use autodie qw(:all); 

my $tot  = 0; 
my $postfix = 'A'; 
my $threshold = 100; 

open my $fip, '<', 'input.txt'; 
LINE: while (my $line = <$fip>) { 
    my $tot += substr($line, 10, 5);  
    open my $fop, '>>', 'output_' . $postfix; 
    if ($tot < $threshold) { 
     print {$fop} $line; 
    } 
    else { 
     $tot = 0; 
     $postfix++; 
     redo LINE; 
    } 
    close $fop; 
} 
close $fip; 

Answer 1

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

use warnings; 
use strict; 
use autodie qw(:all); 

my $tot  = 0; 
my $postfix = 'A'; 
my $threshold = 100; 

open my $fop, '>>', 'output_' . $postfix; 
open my $fip, '<', 'input.txt'; 
while (my $line = <$fip>) { 
    $tot += substr($line, 10, 5);  

    if ($tot >= $threshold) { 
     $tot = 0; 
     $postfix++; 
     close $fop; 
     open $fop, '>>', 'output_' . $postfix; 
    } 
    print {$fop} $line; 
} 
close $fip; 
close $fop;