I've just setup a new system, fresh copy of perl, and DBD::Mysql.
I've got a database with a bunch of zip files. On my old system I could extact the zips without a problem but from this new system they all appear to have extra data.
So for example this simple piece of code works fine on one system but not the other.
use DBI;
$dbh = DBI->connect("dbi:mysql:mydb;192.168.3.4","root","password");
$sth2 = $dbh->prepare("select data from inbound where inboundid=1234")
+;
$rv2 = $sth2->execute;
%inbound = %{$sth2->fetchrow_hashref};
open(ZIP, ">data.zip");
print ZIP $inbound{'data'};
close(ZIP);
result:
New system -
-rw-r--r-- 1 root root 5928 Feb 7 2004 temp.zip
Old system -
-rw-r--r-- 1 root root 4000 Feb 7 2004 temp.zip
Is there something in perl or in DBD::Mysql that could do this?
The new system is running: perl v5.8.0
and DBD::Mysql 2.9003
The database hasn't changed.
This is driving me crazy. Any suggestions?