正则表达式 – 如何替换字符串并保留其大写/小写

发布时间：2020-12-14 06:30:17 所属栏目：百科来源：网络整理

导读：我想用Perl替换一个字符串;两者长度相同.我想替换所有出现的字符串(不区分大小写),但是我想要保留这个字母的大小写.所以如果第一封信是大写的,替换后的第一个字母也是大写. 例如,如果我想用“bar”替换“foo”,那么我想要 foo == barFoo == BarFOO == BAR 在

我想用Perl替换一个字符串;两者长度相同.我想替换所有出现的字符串(不区分大小写),但是我想要保留这个字母的大小写.所以如果第一封信是大写的,替换后的第一个字母也是大写.

例如,如果我想用“bar”替换“foo”,那么我想要

foo ==> bar
Foo ==> Bar
FOO ==> BAR

在Perl中有一个简单的方法吗？

这可能是你以后：

How do I substitute case insensitively on the LHS while preserving case on the RHS?

这几乎直接从上述链接复制：

sub preserve_case($$) {
    my ($old,$new) = @_;
    my $mask = uc $old ^ $old;
    uc $new | $mask .
    substr($mask,-1) x (length($new) - length($old))
}

my $string;

$string = "this is a Foo case";
$string =~ s/(Foo)/preserve_case($1,"bar")/egi;
print "$stringn";

# this is a Bar case

$string = "this is a foo case";
$string =~ s/(Foo)/preserve_case($1,"bar")/egi;
print "$stringn";

# this is a bar case

$string = "this is a FOO case";
$string =~ s/(Foo)/preserve_case($1,"bar")/egi;
print "$stringn";

# this is a BAR case

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!