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

[download]
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?

In reply to DBD::Mysql Messing with my data? by opuz

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.