Hello,
How can do a perl regular expresion for search and replace blocks like
[+ command1 ; command2; command3 +]
with
[+ do { command1 ; command2; command3 } +]
We try with some like this :
cat file.epl |perl -na -e'if ($_ =~ m/\[\+( *.+? *)\+\]/g ){ print "
do {$1}\n"} ;'
But code like [+ $output +] is replaced with [+ do {$output} +] too ...
Thanks and regards,
--
Mario F. Toro
--
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-h...@perl.apache.org
