perl - 如何在两行中检查文件是否已成功打开

Question

抱歉，我找不到这个问题的答案。

如果我有以下行

my $FH;
open FH,"somefile";

现在我想检查 FH 是否已成功打开，但我想在不同的行中执行此操作，而不是使用 or 语法。

我尝试了 if ( $FH )，但它对我不起作用。

谢谢。

Answer 1

来自open-Manual :

Open returns nonzero on success, the undefined value otherwise. If the open involved a pipe, the return value happens to be the pid of the subprocess.

所以你可以这样做:

my $FH;
my $file_opened = open $FH, '<', 'somefile';

if($file_opened) {
    print "open";
    close($FH);
}

或者一行中没有附加变量:

if(open $FH, '<', 'somefile') {
    print "--open";
    close($FH);
}