Perl glob 在尝试匹配特定文件类型时返回误报

Question

我正在尝试使用 glob 匹配目录中的“program.log”或“program.log.gz”或两者，但 glob 将两个字符串都返回到 @array，无论它们是否存在。

我做到了

@array = glob ("$dir/program.{log,log.gz}");

现在@array 包含

$dir/program.log
$dir/program.log.gz

不管它们是否真的存在。

似乎 glob 只是扩展字符串并将其传递给@array，而不管文件是否实际存在。这是 glob 的预期行为吗？如果是这样，我如何只将存在的文件名传递给@array？

Answer 1

这是glob 的记录行为：

如果非空大括号是 glob 中唯一使用的通配符，则不会匹配文件名，但可能会返回许多字符串。例如，这会产生九个字符串，每个字符串对应一个水果和颜色：

my @many = glob "{apple,tomato,cherry}={green,yellow,red}";

如果您只想将现有文件传递给数组，可以使用grep 和文件测试，例如-e（存在）

my @files = grep -e, glob ("$dir/program.{log,log.gz}");