在這種情況下是否習慣於僅打開一次文件?我應該打開一個文件還是經常打開和關閉?
#!/usr/bin/env perl
use warnings;
use 5.012;
use autodie;
my $file = 'my_file';
open my $fh, '>>', $file;
say $fh "Begin";
close $fh;
$SIG{INT} = sub {
open my $fh, '>>', $file;
say $fh "End";
close $fh;
exit
};
my $result;
while (1) {
$result++;
# ...
# ...
# ...
open my $fh, '>>', $file;
say $fh $result;
close $fh;
sleep 3;
}
另外,你要多少開銷與所有的開啓和關閉遭遇 - 他們沒有成本的操作。 – 2011-02-01 20:19:05