Menu{Master,Maestro,etc} question(s)
Fairlight
fairlite at fairlite.com
Tue May 8 20:47:32 PDT 2007
perl -pi.bak -e '$line = shift; $sub = shift; while (<>) {if ($_ =~ /^${line}:/)
{s/^(.+:[^:]+")[^"]+(".*)/$1${sub}$2/;}}' $2 $3 $1
I never use -pi so once I looked it up, I realised you didn't need the
print; in there. The important parts are the test and the regex anyway,
but for the sake of not conflicting...
mark->
--
No matter what your problems, modern medicine can help!
http://members.iglou.com/fairlite/fixital/
More information about the Filepro-list
mailing list