perl glob 检查带前缀的文件是否存在

Question

我在使用 glob 搜索文件时遇到了一些奇怪的行为。 （我认为这是有意的，但在我的情况下我不想要它）

我有两个名为 aaa:bbb 和 aaa:ccc 的文件。

我有代码可以查看前缀为 aaa:* 的文件是否存在。我用这段代码来做这个：

my $filelocation_special = "aaa";

if (glob($filelocation_special . ":*")) {
  # file(s) exists!
}

这行得通。但是，如果我再次运行相同的代码两次 glob 返回 undefined。

这些是我的回报：（反正大部分时间）

print STDERR "glob: " . glob($filelocation_special . ":*") . "\n";

# 1 run: aaa:bbb
# 2 run: aaa:ccc
# 3 run: 

我可以做些什么来重置 glob总是只检查带有这个前缀的文件是否存在？

也许我应该完全使用一些不同的检查，但我似乎找不到任何快速的东西，只是检查文件是否存在。

Answer 1

if (glob(...)) 是 call to glob in scalar context。

在标量上下文中，glob 遍历 此类文件名扩展，当列表为 筋疲力尽。

所以每次你在标量上下文中调用glob，使用相同的参数，并且从同一行代码，你会得到不同的结果，最终你会得到undef，当与您的论点匹配的文件列表已用尽。

要使您的表达式表示“如果有与此模式匹配的文件...”，您需要以某种方式使用列表上下文。

@tmp = glob(pattern)
if (@tmp) 

if (()=glob(pattern))

if (@{[glob(pattern)]})

---

转移：任何这些都可以工作（因为@* 是许多标点符号* 值的有效全局数组标识符）

if (@@=glob(pattern))
if (@<=glob(pattern))
if (@:=glob(pattern))

它们甚至可以写成这样

if (@ <= glob(pattern))
if (@ := glob(pattern))

因此建议了更多secret operators 的候选人。

@@ = EXPR       like the goatse operator, returns a count of elements
@ <= EXPR       in EXPR when EXPR is evaluated in list context; useful
@ := EXPR       when EXPR in scalar context does not do this