siva kumar,
If you are going to slightly edit the code from the documentation please remember to be consistant in your changes. You seem to have taken example code from the docs and changed $ftp to $netObj, yet failed to replace the ftp->quit; with $netObj->quit;. Running your code gives the following error:
Can't call method "quit" on an undefined value at ftp.pl line 8.
I find it helpful when people provide a basic script with some error checking, rather than untested code, since for very little effort on our part, it makes it easier for others to see where things are going wrong:
#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP::Recursive;
my $host = "myhost.org";
my $username = "myusername";
my $password = "mypassword";
my $remotedir = "remotedir";
my $ftp = Net::FTP::Recursive->new($host, Debug => 0) or die "\nCan't
+connect to $host" ;
$ftp->login($username,$password) or die "\nCan't login to $host, check
+ username and passowrd";
$ftp->cwd($remotedir) or die "\nCan't cwd to path $remotedir";
$ftp->rget();
$ftp->quit;
Cheers
Martin | [reply]
[d/l]
[select] |