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