Further to my earlier mail, this is how I have constructed my search/replace
patterns
s/nxny d{4} 5041/nxny 5041/g; # nxny followed by 4 digits then 5041
replace by nxny 5041
s/(nx d{4}|ny 1)/nx 71|ny 71/g; # nx followed by 4 digits & ny 1 replace by
nx 71 ny 71
s/(d{4} x 1)/(71 x 71)/g; # (4 digits x 1) in brackets replace
by (71 x 71)
I wonder if the search/replace syntax is correct
Thanks for help
Zilore
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
