我有一个具有重复模式的字符串,我想用另一个字符串替换每次出现的此类模式。替换字符串是通过连接一组其他字符串而形成的。示例如下。我首先尝试使用 .
运算符进行连接,如图所示。
但输出包含点本身,因此 Perl 不会将其视为运算符,而是文字 .
。
#!/usr/bin/perl
use warnings;
use strict;
my $start = 'not-so-';
my $end = '-but-a-little-bad';
my $string = 'I am a good boy. Infact I am a very good boy';
print "Before: $string\n";
>>>> $string =~ s/(good)/$start.$1.$end/g;
print "Later : $string\n";
所以我删除了 .
,我的语句变成了 $string =~ s/(good)/$start$1$end/g;
,输出符合预期。但是,我觉得这样的声明可能会导致以后的维护问题。
我的问题:除了这个之外,还有更好的连接字符串的方法吗?
最佳答案
你的符号
$string =~ s/(good)/$start$1$end/g;
很好。如果您愿意,也可以写
$string =~ s/(good)/$start . $1 . $end/ge;
但它是完全等价的。
关于perl - 在 Perl 替换表达式中连接字符串,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13075687/