是否可以进行“搜索和替换”工作，其中替换是包含`$1`，`$2`，...特殊变量的变量？

Question

是否可以进行“搜索和替换”工作，其中替换是包含

$1

、

$2

、...特殊变量的变量？

#!/usr/bin/env perl
use strict;
use warnings;
use 5.10.0;

my $row = 'ab';
my $pattern = '^(.)(.)';
my $replacement = '$2-$1';
$row =~ s/$pattern/$replacement/;
say $row; # $2-$1

Answer 1

使用 String::Substitution 的

sub_modify

。

use String::Substitution qw( sub_modify );

sub_modify( $row, $pattern, $replacement );