in reply to Quick solutions to easy problems

You were very close to the one-liner. :-) 
perl -i.BAK -pe 's!(<OPERATORID>)(.*)(</OPERATORID>)!$1 . substr($2, 0
+, 10) . $3!e' FILE1 FILE2 ...

[download]

Replies are listed 'Best First'.
RE: RE: Quick solutions to easy problems
by Mushy (Scribe) on Aug 18, 2000 at 01:15 UTC
    A very cool feature of perl, I call it the Pie Bake '-pi.bak -e' solution :) to remember the switches easily.
[reply]
[d/l]
RE: RE: Quick solutions to easy problems
by wardk (Deacon) on Aug 18, 2000 at 20:09 UTC

    I love this place. I learn something useful everytime I log in.

    thank you monks!

[reply]

In Section Cool Uses for Perl