在Perl中，是否有$ {foo [bar]}可能是語法上有效的代碼？

Question

我正在通過O'Reilly編程Perl第3版閱讀，文中指出，不應使用歧義搜索模式/$foo[bar]/，而應使用/${foo[bar]}/，以便Perl不會將[bar]誤認爲字符類。我是否錯過了某些東西，或者這兩個語句在語法上都是不正確的，因爲它們試圖使用空字符串來索引數組？我在網上查了這本書的勘誤表，在書中找不到任何提及這是一個錯誤。是否有一些我可以忽略的代碼可能是有效的？

Answer 1

我通過O'Reilly的編程閱讀的Perl，3 ^次版和文本規定，而是採用了模棱兩可的搜索模式/$foo[bar]/，應改用/${foo[bar]}/，這樣的Perl沒有按不要錯過[bar]爲一個角色類。我是否錯過了某些東西，或者這兩個語句在語法上都是不正確的，因爲它們試圖使用空字符串來索引數組？

是的，你失去了一些東西：bar可以是一個函數調用：

$ perl -Mstrict -E 'sub bar() { 0 } say "foo" =~ /$ARGV[bar]/ || "FAIL"' foo 
FAIL 

$ perl -Mstrict -E 'sub bar() { 0 } say "foo" =~ /${ARGV[bar]}/ || "FAIL"' foo 
1 

$ perl -MO=Deparse -Mstrict -E 'sub bar() { 0 } say "foo" =~ /${ARGV[bar]}/ || "FAIL"' foo 
sub bar() { 0 } 
use strict 'refs'; 
BEGIN { 
    $^H{'feature_unicode'} = q(1); 
    $^H{'feature_say'} = q(1); 
    $^H{'feature_state'} = q(1); 
    $^H{'feature_switch'} = q(1); 
} 
say 'foo' =~ /$ARGV[0]/ || 'FAIL'; 
-e syntax OK 

確切的報價，從Programming Perl, 4^th edition 73頁，是：

在搜索模式，其中 是一個不幸的歧義：/$foo[bar]/被解釋爲/${foo}[bar]/ （其中[bar]是正則表達式的字符類）或/${foo[bar]}/ （其中[bar]是數組@foo的下標）？如果@foo不存在，它顯然是 一個字符類。如果存在@foo，Perl會很好地猜出[bar]和 幾乎總是正確的。如果它猜錯了，或者你只是普通的偏執狂， 你可以用大括號強制正確的解釋，如前所示。即使 你只是謹慎，這可能不是一個壞主意。

Answer 2

sub bar { 1 } 

唉，我不能提交孤單;對於SO來說太短了。所以，這是在Perl中表達常量的一種方式。例如，sub MAGIC_NUMBER { 0x7774 }

Answer 3

bar可以是一個函數：

perl -le 'sub bar() { 1 } my @foo = qw(hello world); print m/${foo[bar]}/ ? "$_ -> TRUE" : "$_ -> FALSE" for qw(hello world)'