正则表达式 – 使用什么而不是Smartmatch？

发布时间：2020-12-14 06:05:03 所属栏目：百科来源：网络整理

导读：我刚刚升级到Perl 5.26.1,现在我得到了 Smartmatch is experimental at check_tr.pl line 67. 有问题的代码在哪里 my @patterns = (qr/summary:s+(.+?) ins+(.+?) - average ofs+(.+?)$/,qr/summary:s+(.+?) ins+(.+) (.+? .+?)$/);my $r = "";opendir(

我刚刚升级到Perl 5.26.1,现在我得到了

Smartmatch is experimental at check_tr.pl line 67.

有问题的代码在哪里

my @patterns = (qr/summary:s+(.+?) ins+(.+?) - average ofs+(.+?)$/,qr/summary:s+(.+?) ins+(.+) (.+? .+?)$/);
my $r = "";
opendir(DIR,$dir) or die $!;
while(my $file = readdir(DIR)) {

    next if ($file =~ m/^./);
     open(F,'<',"$dir/$file") or die $!;

     if (<F> ~~ @patterns) {
         $r .= <F>;
...

题

理想情况下,对代码的更改尽可能少.我应该怎么做而不是智能匹配？

解决方法

只要说清楚你的意思.例如.如果要检查标题行是否与@patterns中的任何正则表达式匹配：

use List::Util 'any';
...
my $line = <F>;
if (any { $line =~ $_ } @patterns) { ... }

虽然在这种情况下,预编译单个模式可能更为明智,例如：

my ($pattern) = map qr/$_/,join '|',@patterns;
...
if (<F> =~ $pattern) { ... }

如果您的@patterns数组包含不同类型的数据,您可能希望选择不同的匹配运算符,例如==或eq.如果@patterns不是完全相同的“类型”并且你真的想要smartmatch行为,你可以使警告静音并继续使用它：

use experimental 'smartmatch';

但是,这可能会在未来没有进一步警告的情况下中断.

（编辑：李大同）

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