清除正则表达式匹配变量的最佳方法是什么？

Question

清除/重置所有正则表达式匹配变量的最佳方法是什么？

• 示例$1 如何在正则表达式操作之间不重置并使用最近的匹配：

  $_="this is the man that made the new year rumble"; 
  / (is) /; 
  / (isnt) /; 
  say $1;          # outputs "is"
  

• 使用循环时这可能会出现问题的示例：

  foreach (...){
     /($some_value)/;
     &doSomething($1) if $1;
  }
  

---

更新：我认为我不需要这样做，但 Example-2 只是一个示例。这个问题是关于重置匹配变量，而不是实现它们的最佳方式。

无论如何，最初我的编码风格更符合明确和使用 if 块。现在回到这个（Example2）之后，阅读多行代码会更加简洁，我会发现这种语法更快地理解。

Answer 1

您应该使用匹配的返回值，而不是组变量的状态。

foreach (...) {
    doSomething($1) if /($some_value)/;
}

$1 等只有在匹配成功时才能保证反映最近的匹配。除了在一场成功的比赛之后，你不应该看他们。

Answer 2

正则表达式捕获*通过成功匹配重置。要重置正则表达式捕获，可以使用保证匹配的简单匹配操作。

"a" =~ /a/;  # Reset captures to undef.

是的，看起来很奇怪，但你要求做一些奇怪的事情。

如果你修复你的代码，你就不需要看起来怪异的解决方法。修复您的代码甚至会发现一个错误！

修复：

$_ = "this is the man that made the new year rumble"; 
if (/ (is) / || / (isnt) /) {
   say $1; 
} else{ 
   ...  # You're currently printing something random.
}

和

for (...) {
   if (/($some_pattern)/) {
      do_something($1);
   }
}

---

* — Backrefs 是匹配先前捕获的文本的正则表达式模式。例如\1，\k<foo>。您实际上是在谈论“正则表达式捕获缓冲区”。

Answer 3

您应该测试匹配是否成功。例如：

foreach (...){
   /($some_value)/ or next;
   doSomething($1) if $1;
}

foreach (...){
   doSomething($1) if /($some_value)/ and $1;
}

foreach (...){
   if (/($some_value)/) {
      doSomething($1) if $1;
   }
}

根据 $some_value 是什么，以及您希望如何处理匹配空字符串和/或 0，您可能需要也可能根本不需要测试 $1。

Answer 4

为了补充现有的、有用的答案（以及在布尔上下文中正常测试匹配操作的结果并仅在测试成功时才采取行动的明智建议）：

根据您的情况，您可以以不同的方式解决问题：

^{免责声明：我不是经验丰富的 Perl 程序员；如果这种方法有问题，请告诉我。}

将匹配操作包含在 do { ... } 块中，将所有与正则表达式相关的特殊变量（$&、$1、...）都包含在该块中。

因此，您可以使用do { ... } 来防止这些特殊变量首先被设置（尽管块外的先前正则表达式操作中的变量显然仍然有效）；例如：

$_="this is the man that made the new year rumble"; 

# Match in current scope; -> $&, $1, ... *are* set.
/ (is) /;

# Match inside a `do` block; the *new* $&, $1, ... values
# are set only *inside* the block; 
# `&& $1` passes out the block's version of `$1`.
$do1 = do { / (made) / && $1 };

print "\$1 == '$1'; \$do1 == '$do1'\n";  # -> $1 == 'is'; $do1 == 'made'

• 这种方法的优点是没有当前作用域的特殊正则表达式变量被设置或更改；相比之下，接受的答案会改变变量，例如 $& 和 $'。
• 缺点是必须明确传递感兴趣的变量；但是，默认情况下，您确实会得到匹配操作的结果，如果您只对捕获缓冲区的内容感兴趣，那就足够了。

Answer 5

你应该这样做：

foreach (...) { 
   someFnc($1) if /.../; 
}

但是，如果您想坚持自己的风格，请将此作为一个想法：

$_ = "this is the man that made the new year rumble";  

$m = /(is)/   ? $1 : undef;
$m = /(isnt)/ ? $1 : undef;

print $m, "\n" if defined $m;

Answer 6

将捕获分配给列表的行为更接近您想要的。

for ("match", "fail") {
    my ($fake_1) = /(m.+)/;
    doSomething($fake_1) if $fake_1;
}