FTP using perl
Posted by freebird123 (freebird123), 15 April 2008Hi ,
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
Posted by KevinAD (KevinAD), 16 April 2008First 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.
Posted by freebird123 (freebird123), 16 April 2008#!/usr/bin/perl
$ftpobj = Net::FTP -> new ("$ip",Debug =>0);
$ftpobj -> login("anonymous","anonymous");
$ftpobj -> cwd ("/NETWORK");
$fileSize = $ftpobj -> size("ports");
$ftpobj -> quit;
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..
Posted by admin (Graham Ellis), 16 April 2008I 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!
PH: 01144 1225 708225 • FAX: 01144 1225 793803 • EMAIL: firstname.lastname@example.org • WEB: http://www.wellho.net • SKYPE: wellho