Re^3: Monitor transfers with Net::FTP

That's not how you invoke it. Either make your constructor like such:

 my $ftp = Net::FTP->new( "some.host.name", Hash => 1);
[download]

Or before you call put call the hash method:

  $ftp->hash( 1 );
[download]

-derby

Comment on Re^3: Monitor transfers with Net::FTP Select or Download Code

Replies are listed 'Best First'.
Re^4: Monitor transfers with Net::FTP by Anonymous Monk on Aug 18, 2009 at 20:41 UTC
I actually found a better way for my particular situation, that I surprisingly couldn't find in the monk's search setup: `my @file_name = split /\//, $i; my $xfer_handle = $ftp->stor($file_name[-1]); my $bytes_read = 0; my $buffer = ""; my $bytes = 0; my @file_info = stat($i); sysopen(FILE, $i, 0); binmode(FILE); while (($bytes_read = sysread(FILE, $buffer, 1024)) != 0) { $xfer_handle->write($buffer, $bytes_read); $bytes = $bytes + 1024; if ($bytes > $file_info[7]) { $bytes = $file_info[7]; } print "wrote $bytes of $file_info[7] so far...\n"; } my $check_xfer = $xfer_handle->close();` [download] $xfer_handle->close() returns a 1 if the server reports a 2xx code.	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Monitor transfers with Net::FTP
by Anonymous Monk on Aug 18, 2009 at 20:41 UTC

my @file_name = split /\//, $i;
my $xfer_handle = $ftp->stor($file_name[-1]); 
my $bytes_read = 0;
my $buffer = "";
my $bytes = 0;
my @file_info = stat($i);

sysopen(FILE, $i, 0);
binmode(FILE);
while (($bytes_read = sysread(FILE, $buffer, 1024)) != 0) {
  $xfer_handle->write($buffer, $bytes_read);
  $bytes = $bytes + 1024;
  if ($bytes > $file_info[7]) { $bytes = $file_info[7]; }
  print "wrote $bytes of $file_info[7] so far...\n";
  }
my $check_xfer = $xfer_handle->close();
[download]

[reply]
[d/l]