Help: Migrating from embperl 1.3 to Embperl 2

2010-04-29 Thread Mario Toro
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

RE: Help: Migrating from embperl 1.3 to Embperl 2

2010-04-29 Thread Andrew O'Brien
Hi Mario, > 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 ){ pri