perl - 我应该如何使用 Perl 的 File::Temp？

Question

我想创建一个临时文件，写入文件句柄，然后使用文件名调用外部程序。

问题是我通常想要 close写入文件后和调用外部程序之前的文件，但如果我理解正确 close -ing tempfile()导致它被删除。

那么这里的解决方案是什么？

Answer 1

在关闭缓冲的情况下写入临时文件。在 Perl 脚本中关闭文件之前调用外部程序，外部程序将能够读取您编写的所有内容。

use File::Temp qw(tempfile);
use IO::Handle;

my ($fh, $filename) = tempfile( $template, ... );

... make some writes to $fh ...

# flush  but don't  close  $fh  before launching external command
$fh->flush;
system("/path/to/the/externalCommand --input $filename");

close $fh;
# file is erased when $fh goes out of scope