in reply to Regex not matching all in DB
I agree that you are probably better off using HTML::Entities
The code you have should work for what you are trying to do.
The following snippet works as expected on your test line.
The code you have should work for what you are trying to do.
The following snippet works as expected on your test line.
Outputs:#!/usr/local/bin/perl -w use strict; my $line = q{<br></pre><br><img src=http://blah.microsoft.com +/analog_sc/bp/_lessons_learned/2788_1.jpg><br><br><br><im +g}; print qq{LINE:[$line]\n}; tagremover( $line ); print qq{LINE:[$line]\n}; sub tagremover { $_[0] =~ s/</</g; $_[0] =~ s/>/>/g; }
What are you getting in your $description var after the replacement? DOes your data have Newlines in it?LINE:[<br></pre><br><img src=http://blah.microsoft.com/analog +_sc/bp/_lessons_learned/2788_1.jpg><br><br><br><img] LINE:[<br></pre><br><img src=http://blah.microsoft.com/analog_sc/bp/_l +essons_learned/2788_1.jpg><br><br><br><img]
Wonko
In Section
Seekers of Perl Wisdom