</pre>
<img src=http://blah.microsoft.com/analog_sc/bp/_lessons_learned/2788_1.jpg>
<br>
<img
####
#!/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
}