Willman023 has asked for the wisdom of the Perl Monks concerning the following question:
I just wrote a short script to parse out </> and replace with </> in a DB(code below). But for some reason its not matching every symbol. For example, on the 12th line of a description I have:
icon or choose the Results->View Plotfiles you
and for another I have:
<br></pre><br><img src=http://blah.microsoft.com/analog_sc/bp +/_lessons_learned/2788_1.jpg><br><br><br><img
How can I match any < and >?
Thanks!
bW#!/opt/perl/bin/perl -w use Win32::ODBC; use strict; # MAKE CONNECTION AND QUERY ACCESS DATABASE my $connstring = "EPI_DB"; my $db = new Win32::ODBC($connstring) or die $!; $db->Sql("SELECT entry_id, description FROM entry"); my $description; my $entry_id; while ($db->FetchRow()) { $description= $db->Data('description'); $entry_id = $db->Data('entry_id'); tagremover($description); my $db2 = new Win32::ODBC($connstring) or die $!; $db2->Sql("UPDATE entry SET description='$description' WHERE entry +_id=$entry_id"); } print "Cleaning Complete\n"; $db->Close(); # FUNCTION TO CLEAN TAGS FROM DATABASE sub tagremover { $_[0] =~ s/</</g; # REPLACES ALL HTML < SYMBOLS IN DB $_[0] =~ s/>/>/g; # REPLACES ALL HTML > SYMBOLS IN DB }
Back to
Seekers of Perl Wisdom