Help for this page

Select Code to Download

Select or download this

my $query = $db->prepare(" Update $WeatherDB
                           Set precip=$precip, high=$high, low=$low  
...
{
   print "DB corruption! $rows_changed entries for $state,$city combo\
+n";
}

Select or download this

#!/usr/bin/perl -w
use strict;
...
# A as string=0E0
# A as numeric=0
# B=35 leading zeroes deleted