What I am using is:

cp $2 TestSed                                                               
               
export IFS=', '                                    
while read replace search 
 do 
     if [ $search != $replace ];
        then     
        echo $replace $search                                               
                             
        perl -i -p -e "s/\Q$search/$replace/g" TestSed
    fi
done < Mapping/$1-Mapping1   

Regards, Mehmet


--
SLUG - Sydney Linux User's Group Mailing List - http://slug.org.au/
Subscription info and FAQs: http://slug.org.au/faq/mailinglists.html

Reply via email to