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
