python - 我如何在表达式中使用 Perl 的 s///？

Question

找这个我很头疼:如何在表达式中使用 s///而不是赋值。为了阐明我的意思，我正在寻找在以下上下文中使用时与 python 的 re.sub(...) 等效的 perl:

newstring = re.sub('ab', 'cd', oldstring)

到目前为止，我知道如何在 perl 中执行此操作的唯一方法是:

$oldstring =~ s/ab/cd/;
$newstring = $oldstring;

注意额外的分配。

Answer 1

您可以使用 ($new = $old) =~ s/whatever/whateverelse/; 来实现您正在寻找的完全相同的功能:

use strict;
my $old = "OLD";
my $new;
($new = $old) =~ s/OLD/NEW/;
print "old=$old, new=$new";

产生:

old=OLD, new=NEW

正是你想要的

如果你正在寻找一个函数，你可以定义你自己的函数来避免赋值:

use strict;
sub re_sub { 
   my ($find, $replace, $old) = @_;
   my $new = $old;
   $new =~ s/$find/$replace/;
   return $new;
}

my $old = "ab";
my $new = re_sub('ab', 'cd', $old);
print "new=$new\n";

new=cd 的结果。