Jak użyć zmiennej po stronie zastępczej operatora zastępczego Perla?

Deparse mówi nam, że to jest to, co jest wykonywane:

$find = 'start (.*) end';
$replace = "foo \cA bar";
$var = 'start middle end';
$var =~ s/$find/$replace/;

Jednakże

 /$find/foo \1 bar/

Jest interpretowane jako:

$var =~ s/$find/foo $1 bar/;

Niestety wygląda na to, że nie ma łatwego sposobu, aby to zrobić.

Można to zrobić za pomocą sznurka eval, ale to niebezpieczne.

Najbardziej rozsądne rozwiązanie, które działa dla mnie było to:

$find = "start (.*) end"; 
$replace = 'foo \1 bar';

$var = "start middle end"; 

sub repl { 
    my $find = shift; 
    my $replace = shift; 
    my $var = shift;

    # Capture first 
    my @items = ( $var =~ $find ); 
    $var =~ s/$find/$replace/; 
    for( reverse 0 .. $#items ){ 
        my $n = $_ + 1; 
        #  Many More Rules can go here, ie: \g matchers  and \{ } 
        $var =~ s/\\$n/${items[$_]}/g ;
        $var =~ s/\$$n/${items[$_]}/g ;
    }
    return $var; 
}

print repl $find, $replace, $var; 

Obalenie techniki ee:

Jak powiedziałem w mojej odpowiedzi, unikam oceny z jakiegoś powodu.

$find="start (.*) end";
$replace='do{ print "I am a dirty little hacker" while 1; "foo $1 bar" }';

$var = "start middle end";
$var =~ s/$find/$replace/ee;

print "var: $var\n";

Ten kod robi dokładnie to, co myślisz.

Jeśli twój łańcuch zastępczy znajduje się w aplikacji internetowej, po prostu otworzyłeś drzwi do dowolnego wykonania kodu.

Poza tym, to nie będzie działać z włączonymi skażeniami z tego właśnie powodu.

$find="start (.*) end";
$replace='"' . $ARGV[0] . '"';

$var = "start middle end";
$var =~ s/$find/$replace/ee;

print "var: $var\n"


$ perl /tmp/re.pl  'foo $1 bar'
var: foo middle bar
$ perl -T /tmp/re.pl 'foo $1 bar' 
Insecure dependency in eval while running with -T switch at /tmp/re.pl line 10.

Jednak bardziej ostrożna technika jest zdrowa, bezpieczna, bezpieczna, i nie zawodzi. (Zapewnij sobie, że emitowany ciąg jest nadal skażony, więc nie stracisz żadnego zabezpieczenia. )

# perl -de 0
$match="hi(.*)"
$sub='$1'
$res="hi1234"
$res =~ s/$match/$sub/gee
p $res
  1234

1. $sub -- > $1
2. $1 -- > Wartość końcowa, w przykładzie, 1234

Jak zasugerowali inni, możesz użyć następującego:

my $find = 'start (.*) end';
my $replace = 'foo $1 bar';   # 'foo \1 bar' is an error.
my $var = "start middle end";
$var =~ s/$find/$replace/ee;

Powyższe jest skrótem od:

my $find = 'start (.*) end';
my $replace = 'foo $1 bar';
my $var = "start middle end";
$var =~ s/$find/ eval($replace) /e;

Wolę drugą od pierwszej, ponieważ nie ukrywa to faktu, że eval(EXPR) jest używany. Jednak oba powyższe błędy milczenia, więc lepiej byłoby:

my $find = 'start (.*) end';
my $replace = 'foo $1 bar';
my $var = "start middle end";
$var =~ s/$find/ my $r = eval($replace); die $@ if $@; $r /e;

Ale jak widzisz, wszystkie powyższe pozwalają na wykonanie dowolnego kodu Perla. O wiele bezpieczniej byłoby:

use String::Substitution qw( sub_modify );

my $find = 'start (.*) end';
my $replace = 'foo $1 bar';
my $var = "start middle end";
sub_modify($var, $find, $replace);

Proponuję coś w stylu:

$text =~ m{(.*)$find(.*)};
$text = $1 . $replace . $2;

Jest dość czytelny i wydaje się być bezpieczny. Jeśli potrzebna jest wielokrotna wymiana, jest to łatwe:

while ($text =~ m{(.*)$find(.*)}){
     $text = $1 . $replace . $2;
}

Zobacz THIS previous so post on using a variable on the replacement side of s///in Perl. Spójrz zarówno na zaakceptowaną ODPOWIEDŹ i odrzuconą odpowiedź .

To, co próbujesz zrobić, jest możliwe dzięki formie s///ee, która wykonuje Podwójny eval na prawym łańcuchu. Zobacz cytat perlop jak operatory aby uzyskać więcej przykładów.

Ostrzegam, że istnieją zabezpieczenia impilcations eval i to nie będzie działać w trybie skażenia.

#!/usr/bin/perl

$sub = "\\1";
$str = "hi1234";
$res = $str;
$match = "hi(.*)";
$res =~ s/$match/$1/g;

print $res

Nie jestem pewien, co chcesz osiągnąć. Ale może możesz użyć tego:

$var =~ s/^start/foo/;
$var =~ s/end$/bar/;

Tzn. po prostu zostaw środek w spokoju i wymień początek i koniec.