Question

I am using the Net::FTP in perl to do some file transfers. when I run the following code :-

Are there any issues with using the IP address ? Am I correct in providing this in the host field ?

use strict;          
use Net::FTP;

my $host = "10.77.69.124";
my $user = "administrator";
my $password = "Password";

my $f = Net::FTP->new($host, Debug =>0) or die "Can't open $host\n";
$f->login($user, $password) or die "Can't log  $user in\n";

The code is not able to connect to the remote host. Why is this happening ? Shouldn’t this work with the IP address provided in the $host ?

Answer 1

The constructor of Net::FTP allows you to pass a single scalar value or an array of hosts to try. The value of this field should be the same as the PeerAddr from IO::Socket::INET (either a hostname or an ip address).

Have a closer look at what is happening by specifying Debug. If you are behind a firewall or a NAT setup, you should probably also set Passive to a non-zero value and make sure to check if the constructor failed by printing out $@.

my $ftp = Net::FTP->new(Host=>$host, Debug=>1, Passive=>1) || die $@;

If the constructor succeeded, you might want to check if any of the other methods fail:

$ftp->login($user, $pass) || die $ftp->message;
$ftp->cwd($path) || die $ftp->message;

By the way: If you are unsure if you’ve used the correct host parameter, you can ask Net::FTP which host it tried to connect to:

print $ftp->host, "\n";

If this still doesn’t work, please provide a detailed output of your application.

Hope this helps.