在实际写入文本行之前,如何延迟创建文本文件？(懒惰创作)

Question

我有一个perl脚本,在文件上附加文本:

open (EXFILE, ">>$outFile");

在打开时创建一个空文件,我想避免这种情况.我希望只有在第一次将一行写入文件句柄时才会创建该文件:

print EXFILE $line 

如果没有任何内容写入文件句柄,则不应创建该文件...

可能吗 ？怎么样 ？

Answer 1

创建一个为您开放的子项.

sub myappend {
    my ($fname, @args) = @_;
    open my $fh, '>>', $fname or die $!;
    print $fh @args;
    close $fh or die $!;
}

myappend($outfile, $line);

或者,不是打印,而是按下阵列并等到最后打印.

while ( ... ) {
    push @print, $line;
}

if (@print) {
    open my $fh, '>>', $outfile or die $!;
    print $fh @print;
}

或者,对于多个文件

while ( ... ) {
    push @{$print{$outfile}}, $line;
}

for my $key (%print) {
    open my $fh, '>>', $key or die $!;
    print $fh @{$print{$key}};
}