我可以使用Perl中的smartmatch运算符替换绑定运算符吗？

Question

如何使用smartmatch操作符（~~）将其写入？

use 5.010; 

my $string = '12 23 34 45 5464 46'; 

while ($string =~ /(\d\d)\s/g) { 
    say $1; 
} 

Answer 1

如果我们去看看这两个变体是如何转换的，我们可以看到原因。

---

• 首先让我们看一下原始版本。

  perl -MO=Deparse -e'while("abc" =~ /(.)/g){print "hi\n"}' 
  

  while ('abc' =~ /(.)/g) { 
      print "hi\n"; 
  } 
  

  正如你可以看到有没有操作码的任何变化。

• 现在，如果你去改变它使用智能匹配运算符，你可以看到它确实发生了变化。

  perl -MO=Deparse -e'while("abc" ~~ /(.)/g){print "hi\n"}' 
  

  while ('abc' ~~ qr/(.)/g) { 
      print "hi\n"; 
  } 
  

  它它变为qr，它不承认/g选项。

  这应该可能会给你一个错误，但它不会被转换，直到它被解析。

  ---

  你应该得到的，如果你使用qr，而不是会得到警告：

  syntax error at -e line 1, near "qr/(.)/g"

智能匹配功能，从来没有打算更换=~运营商。它出现在使given/when像它一样工作的过程中。

在大多数情况下，when(EXPR)被视为的$_隐式smart match。
...

Answer 2

有趣。 perlsyn状态：

任何~~正则表达式匹配$a =~ /$b/

所以，乍一看，似乎是合理的预期

use strict; use warnings; 
use 5.010; 

my $string = '12 23 34 45 5464 46'; 

while ($string ~~ /(\d\d)\s/g) { 
    say $1; 
} 

打印12，23等，但它卡住在循环中，重复匹配12。使用：

 
$ perl -MO=Deparse y.pl 

产生

while ($string ~~ qr/(\d\d)\s/g) { 
    say $1; 
} 

看着perlop，我们注意到

qr/STRING/msixpo 

注意， 'G' 未被列为修饰符（逻辑上，对我来说）。

有趣的是，如果你写：

my $re = qr/(\d\d)\s/g; 

perl barfs：

 
Bareword found where operator expected at C:\Temp\y.pl line 5, 
near "qr/(\d\d)\s/g" 
syntax error at C:\Temp\y.pl line 5, near "qr/(\d\d)\s/g" 

想必也应该说些什么，如果一个无效的表达式是在代码中使用上述

Answer 3

是的预期的行为输出到无尽的第一场比赛？因为这是这个代码必须以当前形式做的事情。问题不在于智能匹配运算符。 while循环是无止境的，因为$string没有发生任何修改。全局开关/g不会更改环路本身。

你想达到什么目的？我假设你想输出两位数值，每行一个。在这种情况下，您可能需要考虑：

say join("\n", grep { /^\d{2}$/ } split(" ",$string)); 

Answer 4

说实话，我不知道，你可以使用智能匹配运营商这一点。在我有限的测试中，它看起来像智能匹配是返回一个布尔值而不是匹配列表。但是，您发布的代码（使用=~）无法使用它。
由于while循环，您发布的内容不起作用。在每次迭代开始之前执行while循环上的条件语句。在这种情况下，您的正则表达式会返回$string中的第一个值，因为它在每次迭代时都会重置。 A foreach可以工作：

my $string = '12 23 34 45 5464 46'; 
foreach my $number ($string =~ /(\d\d)\s/g) { 
    print $number."\n"; 
}