Trong Perl, cách tránh mở các tệp nhiều lần

Question

Tôi cần phải đọc từ một tệp, lặp qua nó và viết dòng đó vào tệp khác. Khi số lượng các dòng đạt đến ngưỡng, hãy đóng chốt xử lý tệp đầu ra và mở một tệp mới.

Làm cách nào để tránh mở và đóng trình xử lý tệp đầu ra mỗi khi tôi đọc một dòng từ xử lý tệp đầu vào như dưới đây?

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

Chỉ mở lại tệp khi bạn thay đổi $postfix. Ngoài ra, bạn có thể đơn giản hơn một chút.

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;