Perl 替换运算符的作用是什么？

Question

多年来，我一直断断续续地使用 Perl 进行编程，尽管只是偶尔它是我的主要语言。 因为我经常几个月不写任何 Perl，所以我严重依赖我的卷角骆驼书来提醒我如何做事。 然而，当我在不理解的情况下逐字复制食谱时，这让我很烦恼。 这是最令人烦恼的问题之一：在第 3 版 Camel 的第 154 页上，有一个“修改字符串en passant”的示例，其内容如下：

($lotr = $hobbit) =~ s/Bilbo/Frodo/g;

Q1）这里发生了什么？关于什么确切地说，正则表达式正在运行吗？

Q2）这种近乎神奇的语法对于“从 $a 中获取字符串，用正则表达式修改它，将结果放入 $b”这样的基本操作是必要的吗？

Q3）我该怎么做 ？这个操作使用循环默认变量作为初始字符串？

提前向 Perl 梦想家致歉，对于他们来说，上面的内容看起来非常自然。

Answer 1

嗯... ($lotr=$hobbit) =~ s/Bilbo/Frodo/g 是 Perl 的众多魔法之一。 现在给出一些答案。

Q1) $lotr 被赋予 $hobbit 中包含的值。 赋值之后，我们就可以忘记源变量了。 将 ($lotr = $hobbit) 视为它自己的语句，就好像我们写的是：

$lotr = $hobbit;
$lotr =~ s/Bilbo/Frodo/g;

一样。 正则表达式在 $lotr 上运行。

Q2) 语法只是上面给出的代码片段的一行版本。 将其视为“从 $a 复制字符串，将其复制到 $b，然后使用正则表达式修改 $b”而不是“从 $a 中获取一个字符串，用正则表达式修改它，将结果放入 $b”

Q3）我假设您的意思是通过“循环”搜索空间的默认模式默认变量”？ 在这种情况下，只需使用 $_ 而不是 $hobbit：

while (<>) {
  chomp;
  ($lotr = $_) =~ s/Bilbo/Frodo/g;
  print "\$lotr = [$lotr]\n";
  print "\$_    = [$_]\n";
}

有趣的是，魔术变量 $_ 不会被此操作修改。 通过这种方式，您可以得出这样的结论：赋值发生在正则表达式替换之前，并且替换不会以任何方式与默认模式空间交互。

对于经验丰富的 Perl 程序员来说……我不知道有多少人会被某些 Perl 语法所困扰，无论他们已经盯着它看了多久，当然除了 Schwartz 先生；）

Answer 2

不同的语言使用赋值运算符做不同的事情。 在某些情况下，它是一个语句，而不是一个表达式，因此不能组合成更大的表达式。 在某些情况下，它返回分配的值，但仅作为值（通常称为右值），而不是本身可以修改或分配的值（左值）。 C 就是一个例子，您可以在其中
可以写：

 a = b = c;  # assign value of c to b and a

但不能写：

 ++(b = a);  # assign value of a to b, then increment b

在某些情况下，赋值的结果是赋值给的左值。 （在 Perl 中，这仅适用于标量赋值；列表赋值是更复杂的野兽。）因此您可以执行 ++($b=$a) 或 ($b=$a) =~ s/a/b/ 或任何其他需要赋值左值的操作，它将首先执行赋值，然后进一步修改赋值给的左值。

Answer 3

如果在 Q2 中您打算从 $a 中获取子字符串，您可能会发现这个习惯用法很有用：

($b) = $a =~ /(substring-to-match)/;
$b =~ s/regex-on-susbtring/result-string/;

另外请注意，$a 和 $b 不是 Perl 中的普通变量，因为它们具有与排序函数相关的特殊作用域规则。 有关详细信息，请参阅“perldoc perlvar”。