指定捕獲組的值，如果沒有匹配：指定字符串

Question

在Perl的正則表達式，the documentation說

...在標量上下文，$time =~ /(\d\d):(\d\d):(\d\d)/返回真 或假值。在列表環境，但是，它返回 匹配的值($1,$2,$3)

但它是如何，當你提供另一種選擇的清單 - 當沒有找到匹配 - TRUE或FALSE將甚至在列表上下文分配時？

作爲示例，我想將匹配的組分配給變量，如果找不到，請使用字符串值ALL。

my ($var) = $string =~ /myregex/ || 'ALL'; 

這可能嗎？那麼多個被捕獲的組呢？例如。

my ($var1, $var2) = $string =~ /(d.t)[^d]+(d.t)/ || 'dit', 'dat'; 

其中如果所述第一組不匹配，則使用'dit'，如果沒有匹配的第二發現'dat'。

Answer 1

對於第一個要求，你可以使用三元運算：

my $string = 'abded'; 
for my $f ('a' .. 'f') { 
    my ($v1) = $string =~ /($f)/ ? ($1) : ('ALL') ; 
    say "$f : $v1"; 
} 

輸出：

a : a 
b : b 
c : ALL 
d : d 
e : e 
f : ALL