l i n u x - u s e r s - g r o u p - o f - d a v i s
Next Meeting:
July 7: Social gathering
Next Installfest:
Latest News:
Jun. 14: June LUGOD meeting cancelled
Page last updated:
2009 Aug 12 13:52

The following is an archive of a post made to our 'vox-tech mailing list' by one of its subscribers.

Report this post as spam:

(Enter your email address)
[vox-tech] Net::FTP - filesize difference
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[vox-tech] Net::FTP - filesize difference

Remote site:

   150 Here comes the directory listing.
   -rw-r--r--    1 504      507      204942095 Aug 07 19:58 bvd.zip
   drwxrwxrwx    2 504      0           16384 Aug 05 16:00 lost+found
   226 Directory send OK.

My code:

   sub downloadFile()
      use vars qw( %props );

      my $ftp = Net::FTP->new( $props->{'ftp.hostname'}, Debug => DEBUG )
         or die "Cannot connect to some.host.name: $@";

      $ftp->login( $props->{'ftp.username'}, $props->{'ftp.password'} )
         or die "Cannot login ", $ftp->message;
      $ftp->get( $props->{'ftp.filename'} )
         or die "get failed ", $ftp->message;


The problem:

   The downloaded file appears to be either truncated or corrupted.

   When I download the file by hand, the size is correct and the file is
   uncorrupted.  However, when I download the file using Perl, the file size
   is smaller than what it should be.

   -rw-rw-r--  1 qfa qfr 204939227 Aug 11 17:24 bvd.zip.byPerl
   -rw-rw-r--  1 qfa qfr 204942095 Aug 11 17:15 bvd.zip.byhand

Any ideas what could be happening?

vox-tech mailing list

LUGOD Group on LinkedIn
Sign up for LUGOD event announcements
Your email address:
LUGOD Group on Facebook
'Like' LUGOD on Facebook:

Hosting provided by:
Sunset Systems
Sunset Systems offers preconfigured Linux systems, remote system administration and custom software development.

LUGOD: Linux Users' Group of Davis
PO Box 2082, Davis, CA 95617
Contact Us

LUGOD is a 501(c)7 non-profit organization
based in Davis, California
and serving the Sacramento area.
"Linux" is a trademark of Linus Torvalds.

Sponsored in part by:
EDGE Tech Corp.
For donating some give-aways for our meetings.