regex - Perl 将正则表达式匹配分配给具有默认值的变量

Question

我熟悉使用列表上下文将匹配分配给变量:

my ($ans) = $somevar =~ m/(somestuff)/;

但是如果我想在匹配失败的时候给$ans赋一个默认值怎么办？有没有办法在一个表达式中做到这一点？最好没有条件运算符？

Answer 1

也许三元运算符会有所帮助:

my $ans = $somevar =~ /(somestuff)/ ? $1 : 'default_val';