Come differire la sostituzione per accedere a var dalla ricerca?

Question

Fondamentalmente io voglio fare questo:

#!/usr/bin/perl 
$search = qr/(?<X>abc)/; 
$_ = "123 abc 456"; 
s/$search/$+{X} $+{X}/; 
print; 

qualcosa di simile:

#!/usr/bin/perl 
$search = qr/(?<X>abc)/; 
$replace = q($+{X} $+{X}); 
$_ = "123 abc 456"; 
s/$search/$replace/; 
print; 

risultato dovrebbe essere 123 abc abc 456.

È possibile?

$replace deve essere mantenuto come var esterno. Quindi, non voglio che il contenuto sia stato spostato in un'altra posizione. Sto leggendo queste informazioni da un file.

Answer 1

Prova con una funzione di un add una bandiera per valutare la parte di ricambio, come questo:

#!/usr/bin/env perl 

$search = qr/(?<X>abc)/; 
$replace = sub { qq($+{X} $+{X}) }; 
$_ = "123 abc 456"; 
s/$search/$replace->()/e; 
print; 

produce:

123 abc abc 456 

Answer 2

capito. Ho bisogno di fare una doppia valutazione sull'espressione (grazie a @Birei per avermi indicato al comando regex valutare.Non riesco a trovarlo nei documenti perl anche se ... dovevo google. :()

Quindi diventa:..

#!/usr/bin/perl 
$search = qr/(?<X>abc)/; 
$replace = q(qq($+{X} $+{X})); 
$_ = "123 abc 456"; 
s/$search/$replace/ee; 
print;