file size, transfer duration and transfer speed in KBs. Is there any way of doing this?
You sure can. There is the underlying dataconn class (see the documentation), which will let you read block by block (of 4Kb for instance). You just need to keep running totals (and you will have to take care of writing the blocks yourself to the local file).
You need to save a copy of epoch time (my $begin = time) at the beginning of the transfer) and then you can divide the amount of bytes of transferred by the seconds elapsed ($delta = time - $begin) to get the throughput in seconds.
The size() method will allow you to obtain the size of the file on the remote server, which will enable you to estimate how far through the transfer you are. Be careful: if you are transferring text files between Unix and Windows systems, the sizes will differ due to newline conversions. Just clamp the progress rate to 100% if you wind up with more bytes on the receiving end than you started out with.
If you don't need to know the dynamic transfer rate (during the transfer, that is), the just take the timestamp at the beginning and end to obtain the duration, and divide the size of the file by time taken, to obtain the overall throughput.
• another intruder with the mooring in the heart of the Perl
In reply to Re: Obtaining statistics for Net::FTP transfers
by grinder
in thread Obtaining statistics for Net::FTP transfers
by qragamu
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |