http://qs321.pair.com?node_id=327366

opuz has asked for the wisdom of the Perl Monks concerning the following question:

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?