in reply to DBD::Mysql Messing with my data?

Well, first of all, you wrote to data.zip, not temp.zip, so check data.zip in your directory for the file sizes.

Assuming there is still a difference in sizes, I would recommend working backward from the endpoint of your computation. Is  $inbound{'data'} the same length in both cases? Compare unzipped archives to see if data has been truncated or added. If something has been added, look at the extra stuff with a hex editor.

-Mark

Replies are listed 'Best First'.
Re: Re: DBD::Mysql Messing with my data?
by opuz (Initiate) on Feb 07, 2004 at 21:06 UTC
    My bad. temp.zip/data.zip same thing. The row in the database is not changing, both systems are selecting the same data. But you made a good suggestion. If I say: 
    print length($inbound{'data'});

    [download]
    Both systems have an identical byte size. So infact it's not DBD::Mysql at all. It's happening when I write the data to the file. What would cause perl to write out extra binary data?
[reply]
[d/l]

      Do both systems have the same locale settings? Does one system need binmode on the output filehandle? Can you provide the versions of the operating systems on both systems?

[reply]

      Have you tried setting binmode on the file handle? What operating system are you working on?

      90% of every Perl application is already written. ⇒
      dragonchild
[reply]
        OLD SYSTEM:

Red Hat Linux release 7.0 (Guinness)
LANG=en_US
LC_CTYPE="en_US"
LC_NUMERIC="en_US"
LC_TIME="en_US"
LC_COLLATE="en_US"
LC_MONETARY="en_US"
LC_MESSAGES="en_US"
LC_PAPER="en_US"
LC_NAME="en_US"
LC_ADDRESS="en_US"
LC_TELEPHONE="en_US"
LC_MEASUREMENT="en_US"
LC_IDENTIFICATION="en_US"
LC_ALL=


NEW SYSTEM:

Red Hat Linux release 9 (Shrike)
LANG=en_US.UTF-8
LC_CTYPE="en_US.UTF-8"
LC_NUMERIC="en_US.UTF-8"
LC_TIME="en_US.UTF-8"
LC_COLLATE="en_US.UTF-8"
LC_MONETARY="en_US.UTF-8"
LC_MESSAGES="en_US.UTF-8"
LC_PAPER="en_US.UTF-8"
LC_NAME="en_US.UTF-8"
LC_ADDRESS="en_US.UTF-8"
LC_TELEPHONE="en_US.UTF-8"
LC_MEASUREMENT="en_US.UTF-8"
LC_IDENTIFICATION="en_US.UTF-8"
LC_ALL=
        I'm not using binmode, I thought it was only needed for windows OS's.
[reply]

In Section Seekers of Perl Wisdom