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
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Regex not matching all in DB
by Willman023 (Scribe) on Jan 30, 2003 at 19:21 UTC |
In Section
Seekers of Perl Wisdom