如何在表达式中使用 Perl'ss/// ？

Question

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

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

我知道如何在 perl 中执行此操作的唯一方法，所以far 是：

$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。

Answer 2

您似乎对 =~ 的工作原理有误解。 =~ 是将变量与正则表达式运算符关联起来的绑定运​​算符。它不执行任何任务。

默认情况下，正则表达式运算符都与主题变量 $_ 一起使用，因此 s/foo/bar/; 与 $_ =~ s/foo 相同/栏/;。没有分配发生。主题变量已转换。

对任何其他变量进行操作时的情况都是类似的。 $var =~ s/foo/bar/; 通过将 foo 的第一个实例替换为 bar 来转换 $var >。没有分配发生。

我能给你的最好建议是用 Python 编写 Python，用 Perl 编写 Perl。不要指望这两种语言是相同的。

您可以像 DVK 建议的那样编写一个子例程来重现您习惯的替换行为。

或者你可以尝试一些惯用的 Perl。根据您表达的在一行中应用多个转换的愿望，我提供了一些您可能会觉得有用的示例。

在这里，我对一个项目使用 for 循环来主题化 $var 并应用许多硬编码转换：

for( $var ) {
    s/foo/bar/;
    s/fizz/buzz/;
    s/whop/bop-a-loo-bop/;
    s/parkay/butter/;
    s/cow/burger/;
}

或者您可能需要应用一组变量转换。我定义了一个子例程来循环定义旧/新转换对的数组引用列表。此示例利用 Perl 的面向列表的参数处理来处理任意数量的转换。

my $foo = transform(
    'abcd' =>
    [ 'a',  'b'    ], 
    [ 'bb', 'c'    ],
    [ 'cc', 'd'    ],
    [ 'dd', 'DONE' ],
);

sub transform {
    my $var = shift;
    for (@_ ) {
        my ($old, $new) = @$_;
        $var =~ s/$old/$new/;
    }

    return $var;
}

最后有点混乱，提供一个修改其第一个参数的转换版本：

my $foo = 'abcd';

transform_in_place(
    $foo =>
    [ 'a',  'b'    ], 
    [ 'bb', 'c'    ],
    [ 'cc', 'd'    ],
    [ 'dd', 'DONE' ],
);

print "$foo\n";

sub transform_in_place {
    for my $i (1..$#_ ) {
        my ($old, $new) = @{$_[$i]};
        $_[0] =~ s/$old/$new/;
    }
}

对于我自己的项目，我可能会根据特定问题的需要使用前两个选项之一。

Answer 3

Perl 的正则表达式替换总是“就地”发生。因此，您需要将字符串复制到新变量并对新变量进行操作：

(my $newstring = $oldstring) =~ s/ab/cd/;

Answer 4

您想让 $newstring 成为替换的结果，对吧？

像这样的事情：

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

应该有效。该赋值将 $newstring 设置为 $oldstring，然后计算结果为 $newstring，这就是替换的作用。

Answer 5

基于此，我是否可以假设一行中不能有两个 s///，其中一个使用另一个的结果，而没有中间赋值，这是正确的吗？ – mikeY

是的，你是对的。
如果您想对同一个字符串应用多个替换，我会执行

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

以下操作，因为 s// 返回所做的替换数，而不是更改后的字符串。

    $newstring = $oldstring) =~ s/ab/cd/ =~ s/xx/yy/ ;

总之，Perl 的正则表达式操作与 Python 的非常不同，您最好尝试从头开始学习 Perl 的功能，而不是尝试将 Python 概念映射到 Perl