如何检查文件句柄是否在 Perl 中打开？

Question

有没有办法检查文件是否已在 Perl 中打开？ 我想要读取文件访问权限，因此不需要 flock。

 open(FH, "<$fileName") or die "$!\n" if (<FILE_IS_NOT_ALREADY_OPEN>);
 #  or something like
 close(FH) if (<FILE_IS_OPEN>);

Answer 1

请参阅 Scalar::Util 中的有关 openhandle() 的答案。 我最初在这里写的答案曾经是我们能做的最好的答案，但现在已经严重过时了。

Answer 2

Scalar::Util 模块为此提供了 openhandle() 函数。 与 fileno() 不同，它处理与操作系统文件句柄无关的 perl 文件句柄。 与 tell() 不同，它在未打开的文件句柄上使用时不会产生警告模块的文档：

openhandle FH

如果 FH 可以用作文件句柄并且已打开，或者 FH 是绑定句柄，则返回 FH。   否则返回“undef”。 

     $fh = openhandle(*STDIN);   # \*STDIN 
     $fh = openhandle(\*STDIN);   # \*STDIN 
     $fh = openhandle(*NOTOPEN);   # 未定义 
     $fh = openhandle("标量");   # 未定义 
  

Answer 3

你为什么想这么做？ 我能想到的唯一原因是当您使用旧式包文件句柄（您似乎正在这样做）并希望防止意外地将一个句柄保存到另一个句柄时。

这个问题可以通过使用新样式的间接文件句柄来解决。

open my $fh, '<', $filename or die "Couldn't open $filename: $!";

Answer 4

Perl 正是为此目的提供了 fileno 函数。

编辑我对fileno()的目的进行了更正。 我确实更喜欢较短的测试

fileno FILEHANDLE

而不是

tell FH != -1

Answer 5

Tell 会产生一个警告（stat、-s、-e 等也是如此），并使用 use warnings (-w)

perl -wle '
    open my $fh, "<", "notexists.txt"; 
    print "can stat fh" if tell $fh
'
tell() on closed filehandle $fh at -e line 1.
-1

替代方案 fileno($fh) 和 eof($fh) 不会产生警告。
我发现最好的选择是保存 open 的输出。