参见英文答案 >
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,则会出现特定错误,其中包含使用不可用功能的位置.