glob的奇怪perl行为[重复]

Question

use strict;
use warnings;
#only linux
#use diagnostics;

# - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - - -
sub in_function {
    my $file = shift;

    glob($file) or die ("$file file was not found\n"); #this fails second time called

    # this is ok second time called
    #my @dummy = glob($file) or die ("$file file was not found\n");
}
# - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - -
my $file = "/tmp/file1*.pdf";
glob($file) or die ("$file file was not found\n");
in_function($file);
$file = "/tmp/file2*.pdf";
glob($file) or die ("$file file was not found\n");
in_function($file);

第一个 glob 很好 第一个 in_function glob 很好 第二个glob很好 第二个 in_function glob 失败 为什么在函数中调用时需要将 glob 分配给变量？

Answer 1

来自perldoc -f glob

在标量上下文中，glob 遍历此类文件名扩展，当列表耗尽时返回 undef。

以下方法可以解决问题：

() = glob($file) 
   or die ...;

但你可能想知道匹配是什么，所以你可以使用

my @matches = glob($file) 
   or die ...;