perl - Perl 中没有 $ 或 @ 的 _ (单下划线)是什么？

Question

我有一些这样的代码:

if (!-d _ || !-o _ || ($vncUserDirUnderTmp && ($mode & 0777) != 0700)) {
    raise Exception("$prog: Wrong type or access mode of $vncUserDir.\n")
}

我可以在 Perl 中找到有关 @_ 和 $_ 的信息，但不能单独找到有关 _ 的信息。 这里的-d _和-o _是什么意思？

Answer 1

与filetest (-X)一起使用时运算符stat使用之前文件测试的结构

If any of the file tests (or either the stat or lstat operator) is given the special filehandle consisting of a solitary underline, then the stat structure of the previous file test (or stat operator) is used, saving a system call.
...
Example:

stat($filename);  
print "Readable\n" if -r _;  
print "Writable\n" if -w _;
...

所以在你的例子中!-d _测试文件是否最后 stat -ed 不是目录。

更新  

不寻常的_确实是一个 typeglob *_但运算符(operator)期望文件句柄 *可以省略，例如 <*STDIN>可以写成<STDIN> 。在符号表中找到

print *{$main::{_}}{IO}, "\n";   # -->  IO::Handle=IO(0x2311970)

在一行中 *_仅在调用stat后才进行设置和_已制作。