Come utilizzare l'indicatore/r nella regex di Perl?

Question

Il Perl doc stati:

e Evaluate 'replacement' as an expression 
r Return substitution and leave the original string untouched. 

sono bandiere disponibili per essere utilizzate nei modelli di sostituzione. Quando passo il flag r al mio pattern di sostituzione, viene interpretato come un errore di sintassi. Sto eseguendo Perl 5.8.8. È possibile che non sia supportato nella mia versione di Perl? Inoltre, qualcuno può fornire un esempio funzionante di come usare la bandiera e come chiamare la sostituzione appena creata?

Answer 1

Forse dovresti leggere i documenti per 5.8.8, quindi?/r è stato aggiunto a 5.14!

In 5.8.8, si può fare l'equivalente di

s/foo/bar/r 

con

do { (my $s = $_) =~ s/foo/bar/; $s } 

---

usi campione di s /// r:

print "abba" =~ s/b/!/rg;   # Prints a!!a 

my $new = $old =~ s/this/that/r; # Leaves $old intact. 

my $trimmed = $val =~ s/^\s+//r =~ s/\s+\z//r; 
my $trimmed = (($val =~ s/^\s+//r) =~ s/\s+\z//r); # Same as previous