首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

如何在保留原始字符串的同时对字符串执行Perl替换?

在Perl中,可以使用正则表达式和s操作符来执行字符串替换。为了在保留原始字符串的同时对字符串执行Perl替换,可以使用$&变量来访问匹配的子字符串。

以下是一个示例:

代码语言:perl
复制
my $original_string = "Hello, world!";
my $pattern = /world/;
my $replacement = "Perl";

my $new_string = $original_string =~ s/$pattern/$replacement/r;

print "Original string: $original_string\n";
print "New string: $new_string\n";

在这个示例中,我们将原始字符串"Hello, world!"存储在$original_string变量中,并使用正则表达式/world/来匹配要替换的子字符串。我们将替换字符串"Perl"存储在$replacement变量中。

我们使用s操作符和/r修饰符来执行替换,并将结果存储在$new_string变量中。/r修饰符表示返回替换后的字符串,而不是修改原始字符串。

最后,我们打印原始字符串和新字符串。

输出:

代码语言:txt
复制
Original string: Hello, world!
New string: Hello, Perl!

这样,我们就可以在保留原始字符串的同时对字符串执行Perl替换。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

领券