Re^2: Monitor transfers with Net::FTP

How do you implement this to where the transfer doesn't just stop the script as it does it?

Since I'm on win32 I can't do a fork, and running in a separate thread seems to cause problems when the thread gets returned, crashing wickedly.

EG:

while ($ftp->put($file)) {
    warn "Still putting data!\n";
    $ftp->hash("", 1);
    }
[download]

Doesn't work as expected, printing hashes on stdout during the transfer.

Comment on Re^2: Monitor transfers with Net::FTP Download Code

Replies are listed 'Best First'.
Re^3: Monitor transfers with Net::FTP by derby (Abbot) on Aug 18, 2009 at 12:06 UTC
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	[reply] [d/l] [select]
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]