Select Code to Download

Select or download this

if ($table->cell($rownum, 0..2) =~ /\xa0/) {
    s/\xa0\d+/ /;
} else {
    s/\xa0//;
}

Select or download this

#!/usr/bin/perl -w
use strict;
...
        # inserting into a database, etc
        =cut
}

Select or download this

<html><table align="center" border="0" cellpadding="2" cellspacing="0"
+><tbody><tr><th align="center" height="24" valign="middle" width="171
+">Boss </th><th colspan="2" align="left" height="24" valign="middle" 
+width="421">Firstname Surname </th></tr><tr><td align="center" height
+="23" valign="middle" width="171">Secretary </td><td colspan="2" alig
+n="left" height="23" valign="middle" width="421">Name Surname, Mr Jon
+es Smith </td></tr><tr><td align="center" height="23" valign="middle"
+ width="171">Medical Doctor </td><td colspan="2" align="left" height=
+"23" valign="middle" width="421">Bob&nbsp;Middlename Hope </td></tr><
+tr><td align="center" height="23" valign="middle" width="171">Positio
+n 1 </td><td align="center" height="23" valign="middle" width="202">W
+orker </td><td align="center" height="23" valign="middle" width="219"
+>Secretary </td></tr><tr><td height="45" valign="top" width="171"></t
+d><td align="left" height="45" valign="top" width="202">Asdf Ghjk </t
+d><td align="left" height="45" valign="middle" width="219">Name Lastn
+ame, First Last </td></tr><tr><td height="68" valign="top" width="171
+"></td><td align="left" height="68" valign="top" width="202">Sally&nb
+sp;Mally </td><td align="left" height="68" valign="top" width="219">J
+oe Smoe, The Who, Will Timberland </td></tr><tr><td align="center" he
+ight="23" valign="middle" width="171">Position 2 </td><td align="left
+" height="23" valign="middle" width="202">Paula Simon </td><td align=
+"left" height="23" valign="middle" width="219">Raymonde Maalouf </td>
+</tr></html>

Select or download this

    my $dbh = DBI->connect("DBI:mysql:$dbname:$dburl", "$dbuser", "$db
+pass") or die "Could not connect";
    my $sth = $dbh->prepare("INSERT INTO $dbtable (position, name, ema
+il) VALUES (?, ?, ?)") or die "Could not prepare";
...
    $sth->finish();
    $dbh->disconnect;
}