perl - 为什么我可以打开undef？

Question

以下不会死:

open my $in, '<', undef or
    die q{couldn't open undef};
print <$in>;

这也不行:

open my $in, '>', undef or
    die q{couldn't open undef};
print $in 'hello';

我不明白为什么这两个都不死。怎么可能开通 undef可能会成功？
我发现这一点的原因是与我一起工作的一个人这样做了:

open my $in, '>', $ARGV[0] or die q{couldn't open $ARGV[0]};

他认为如果没有传入参数，这会杀死脚本(我知道这不是最干净的方法，但我认为它不起作用)。

我正在使用草莓 5.16.1。

Answer 1

见 perldoc -f open :

As a special case the three-argument form with a read/write mode and the third argument being undef:

open(my $tmp, "+>", undef) or die ...

opens a filehandle to an anonymous temporary file.