Hi -

giving my perl a retry, I found some hints on a website to recursively   
replace text                                                            

perl -p -i -e 's/old\(.\)atext/new\1btext/g;' $( find ./ -name '*.html' -o -name 
'*.txt' )

this should replace "old-atext" with "new-btext" and "old+atext" with
"new+btext" and similar occurrences in all the files from find.

but from what I can tell, perl doesn't support the \1 for \(*\) symbols
like sed does.  What is the work around?

// George


-- 
GEORGE GEORGALIS, System Admin/Architect    cell: 646-331-2027    <IXOYE><
Security Services, Web, Mail,            mailto:[EMAIL PROTECTED] 
Multimedia, DB, DNS and Metrics.       http://www.galis.org/george 


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to