为什么当我在未定义的数组上进行grep时会发生这种情况？

Question

有人知道为什么会这样吗？

$ perl -e '@arr = []; print "HELLO." unless grep {/asdf/ =~ $_} @arr;'

输出:

HELLO.

但

$ perl -e '@arr = undef; print "HELLO." unless grep {/asdf/ =~ $_} @arr;'

没有输出.

对我来说,似乎两者都应输出"你好".

Answer 1

您的代码中存在一些语法错误,这些错误会导致意外结果.

首先,如果你想要一个空数组,你需要写:

# Correct (creates an empty array)
my @array = ();

# Incorrect (creates a one-element array containing a reference to an empty array)
my @array = [];

# Incorrect (creates a one-element array containing the undef element)
my @array = undef;

您还需要反转grep条件 - 正则表达式应位于=~运算符的右侧:

perl -e '@arr = (); print "HELLO." unless grep { $_ =~ /asdf/} @arr;'

如果您进行了这两项更改,代码将按预期执行.