Shell Programming and Scripting

Code:

#!/usr/bin/perl
undef $/;
my $str=<DATA>;
$str=~s/<TAG>.*<\/TAG>/<TAG>---<\/TAG>/s;
print $str;
__DATA__
<TAG>
1
2
3
</TAG>

Not tested :

Code:

for i in `find . -name "*\.html"`
do
awk '/<AFFILIATECODEBEGIN>/{p=1;print"something in b/w tags";next}/<\/AFFILIATECODEBEGIN>/{p=0;next}!p' $i >> $i"_Chng"
mv $i"_Chng" $i
done

Thanks for the response.

The code below works but there are a couple of problems.

1) If the first tag is there but not the second, then it just replaces everything in the file after the first tage with the new text "something in b/w tags"

2) If the second tag (closing tag) is there but not the first, then it deletes the closing tag.

Is there a way to only have this work if both tags are present?


If