假设某个测试文件的脚本如下:
[Plain Text] 纯文本查看 复制代码 #!/usr/bin/perl
$file = "hello.txt";
if (-r $file and -w $file) {
print "$file is readable and writeable.\n";
}
它用来测试和它同一个目录下的 hello.txt 文件对于拥有者来说是否有可读与可写权限。在 if 语句里使用了 and 连接了两个属性的判断,但是这是一种耗费较大的操作,这是因为 Perl 在内部做了两次 stat 操作( stat 也是 Unix/Linux 上的系统调用函数,用以查询文件状态),-r 测试时一次,-w 测试时又一次。如果测试海量文件的属性时,性能和时间问题就会变得很明显。因此,引入了虚拟文件句柄(用下划线 _ 来表示),它告诉 Perl 用上次查询过的文件信息来做当前的测试,所以现在 Perl 只需要查询一次即可,那么上面的 if 可写成:if (-r $file and -w _) 。 |