爲什麼當我對一個未定義的數組進行grep時會發生這種情況？

Question

有人知道爲什麼會發生這種情況嗎？

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

輸出：

HELLO. 

但

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

輸出什麼。

對我來說，好像兩個人都應該輸出「HELLO」。

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;' 

如果您進行了這兩項更改，代碼將完成您的預期。

Answer 2

我認爲你想grep {$ _ =〜/ asdf /}。 =〜左邊的值是匹配的值，右邊是正則表達式。這可以進一步簡化爲grep {/ asdf /}，因爲默認搜索$ _。

正如你所寫，你試圖匹配一個undef模式與正則表達式值。匹配運算符（我相信）在模式爲undef時總是返回true。