正则表达式 – 替换并存储在另一个标量中
发布时间:2020-12-14 06:03:40 所属栏目:百科 来源:网络整理
导读:参见英文答案 How do I perform a Perl substitution on a string while keeping the original?????????????????????????????????????7个 如何使用$_来存储我的字符串,然后使用另一个标量变量来存储替换字符串,以便我有两个副本.我们有一个修饰符来复制另一
参见英文答案 >
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,则会出现特定错误,其中包含使用不可用功能的位置. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |