如何在Perl中替换后使用匹配变量$1？

发布时间：2020-12-16 06:28:42 所属栏目：大数据来源：网络整理

导读：从Perl中的替换中获取匹配变量的最简洁方法是什么？我有时发现自己写作 s/(something)// ; my $x = $1 ; 然后我意识到如果s / / /失败$1可能会带来前一场比赛的值.所以我试试 my $x = 'defaultvalue' ; if ( s/(something)// ) { $x = $1 ; } 这是最干净的

从Perl中的替换中获取匹配变量的最简洁方法是什么？
我有时发现自己写作

s/(something)// ;
    my $x = $1 ;

然后我意识到如果s / / /失败$1可能会带来前一场比赛的值.所以我试试

my  $x = 'defaultvalue' ;
    if ( s/(something)// )
    {
     $x = $1 ;
    }

这是最干净的方式吗？

解决方法

正如其他人所指出的那样,TIMTOWTDI.

我个人将它作为单个表达式包装起来,以免过分分散注意力：

my $x = s/(something)// ? $1 : 'defaultvalue';

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!