perl - 你如何检查在 Perl 中打开(文件)是否成功？

Question

以下(不是非常 Perl 风格的)代码

#!/usr/bin/perl

if (! -e "mydir/")
{
  print "directory doesn't exist.\n";
}
open (my $fh, ">", "mydir/file.txt");
if ($fh)
{
  print "file opened.\n";
  print $fh;
  print $fh "some text\n" or die "failed to write to file.\n";
  close ($fh);
}
else
{
  print "failed to open file.\n";
}

产生这样的输出

directory doesn't exist.
file opened.
failed to write to file.
GLOB(0x...some-hex-digits...)

为什么 $fh 在 open 调用后不等于 false？
由于 mydir/不存在，我希望打开文件的尝试会失败。

如果目录和文件存在，我得到类似的结果，但文件是只读的。

我已经在 Windows 7 x64 上使用 Perl 5.10.1 和 Fedora-11 Linux 上使用 Perl 5.10.0 尝试过这个。

我猜我的文件句柄测试是错误的。
我试过谷歌搜索这个没有运气。
我希望这是显而易见的，但任何提示或链接将不胜感激。

谢谢，
抢。

Answer 1

open成功时返回非零值，失败时返回“假”值。你要找的成语是

if (open my $fh, '>', $file) {
    # open was successful
} else {
    # open failed - handle error
}

如果第一个参数 ( $fh ) 未定义(在本例中就是这样)， open在尝试打开文件之前，将其初始化为某个任意值(请参阅 Symbol::genysm method )。所以$fh将 总是 即使 open 也是“真实的”调用失败。