Perl正则表达式替换

Question

代码在这里。 我的问题是，因为$1是Fred ，这是一个替代品，这意味着更换fred or barney与Fred ，为什么不能回答像I saw FRED with FRED. 我不知道这是怎么回事。 谢谢您的回答！

$_ = "I saw Barney with Fred.";
s/(fred|barney)/\U$1/gi; # $_ is now "I saw BARNEY with FRED."

Answer 1

因为捕获组不仅捕获字符串Fred而且捕获Barney 。 因此，如果正则表达式引擎看到Fred ，则立即将其替换为大写FRED；如果引擎看到Barney，则将其替换为大写Barney。

Answer 2

$1表示“无论捕获的第一个捕获组是什么”。 因此，当(fred|barney)匹配fred ，这就是$1包含的内容，但是当它匹配barney ，这就是$1包含的内容。