替换并存储在另一个标量中

Question

如何使用$ _来存储我的字符串,然后使用另一个标量变量来存储替换字符串,以便我有两个副本.我们有一个修饰符来复制另一个变量中的默认参数吗？

#! /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

Answer 1

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

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

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

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

在perlop中,在子弹" s/PATTERN/REPLACEMENT/msixpodualngcer " 下找到它.

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

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

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