我可以使用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"; 
}