On Mon, Dec 19, 2005 at 03:38:23PM -0500, Tony Heal wrote: } I have a database name I want to replace inside of an xml file. I can do } this in several step using sed, but I would like to do it in a single step } using perl. This is what I have in sed and what does not work in perl. } } SED } #!/bin/bash } echo -n "Please enter the name of the new database: " } read syelledb } dbchange=`cat /tmp/data-sources.xml|grep database|cut -d ">" -f2|cut -d "<" -f1` } sed s/$dbchange/$syelledb/ /tmp/data-sources.xml > /tmp/data-sources.xml.tmp } mv /tmp/data-sources.xml /tmp/data-sources.xml.orig } mv /tmp/data-sources.xml.tmp /tmp/data-sources.xml [...]
Why stoop to Perl for something so simple and easy, especially when you have already written the sed for it? After all, sed stands for Stream Editor and you just want a non-stream version of it... i.e. ed. So your new script is: #!/bin/bash echo -n "Please enter the name of the new database: " read syelledb dbchange=`cat /tmp/data-sources.xml|grep database|cut -d ">" -f2|cut -d "<" -f1` ed -s /tmp/data-sources.xml <<EOF 1,$s/$dbchange/$syelledb/g w q EOF Note that I added a 'g' to the end of the substitution command. } Tony Heal --Greg -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
