Hi ,
I want to count the number of bytes received or sent and seconds it took for downloading/uploading through perl script using Net::FTP module..

please help me with this

Thanks,
regards

First place to start is read the NET::FTP documentation and see if it has any methods that already do that. If not, then you have to start coding something.

#!/usr/bin/perl
$ip="IP_ADDRESS";
use Net::FTP;
$ftpobj = Net::FTP -> new ("$ip",Debug =>0);
$ftpobj -> login("anonymous","anonymous");
$ftpobj -> cwd ("/NETWORK");
$ftpobj->put("ports");
$fileSize = $ftpobj -> size("ports");
$ftpobj -> quit;
print $fileSize;

I have used the above script...But I want to pick up the data from the output of ftp..for ex:

4831 bytes sent in 0.00 seconds (15267.88 Kbytes/s)

I want to pick 4831bytes, 0.00 seconds and the transfer rate using PERL

how do I pick up?IS there any way redirecting the ftp output to text file..if there is please help me with syntax..

Thanks,
Regards,


I suspect that the report you're looking for comes from the FTP client which you have replaced by the FTP module - so there IS no output of the type you want. However, you can check size and elapsed time and from them calculate the rate ... and save whichever of those values to a file if you wish!

---