正则表达式 – 替换并存储在另一个标量中

参见英文答案 > How do I perform a Perl substitution on a string while keeping the original?                                    7个
如何使用$_来存储我的字符串,然后使用另一个标量变量来存储替换字符串,以便我有两个副本.我们有一个修饰符来复制另一个变量中的默认参数吗？

#! /usr/bin/perl/
use warnings;
use strict;

$_ = "X is a good boy. X works daily and goes to school. X studies for 12 hours daily \n";

s/X/Sam/g;
print $_,"\n";

我最终想要的是原始的$_和替换的字符串.

编辑：我用过

my $new = s/X/Sam/gr

但是我得到了与构建相关的错误,并没有解决问题.我使用的是5.10.1版

perl --version

This is perl,v5.10.1 (*) built for x86_64-linux-thread-multi

解决方法

当然,一种方法是首先复制原件并在副本上进行替换.

( my $new = $_ ) =~ s/X/Sam/g;

另一种方法是使用/ r修饰符(在v5.14中引入).它返回新字符串,保持原始字符不变

my $new = $_ =~ s/X/Sam/gr;

在子弹“s / PATTERN / REPLACEMENT / msixpodualngcer”下找到它in perlop.

注意实例中的有趣用法.用/ r你也可以

my $new = s/X/Sam/gr;

由于/ r修饰符在v5.14或更高版本上可用,因此您可能希望使用5.014;,不允许代码在较旧的Perls上运行并记录所需的版本.另一方面,如果没有旧版Perl,则会出现特定错误,其中包含使用不可用功能的位置.