Les muestro el código:
Using perl Syntax Highlighting
use Net::Ftp;
$arch_local="imOcci.txt";
$puerto='55555';
$source='xx.xx.xx.xx';
$username="benito";
$passwd="camelo";
my $ftp = Net::FTP->new($source, port =>$puerto, Passive => 0,Debug => 1) or die "No puedo conectarme a $source: $@";
print($passwd);
$ftp->login($username,$passwd) or die "No puedo conectarme ", $ftp->message;
$ftp->get($archivo, $arch_local) or die "Fallo el get ", $ftp->message;
$ftp->quit;
$arch_local="imOcci.txt";
$puerto='55555';
$source='xx.xx.xx.xx';
$username="benito";
$passwd="camelo";
my $ftp = Net::FTP->new($source, port =>$puerto, Passive => 0,Debug => 1) or die "No puedo conectarme a $source: $@";
print($passwd);
$ftp->login($username,$passwd) or die "No puedo conectarme ", $ftp->message;
$ftp->get($archivo, $arch_local) or die "Fallo el get ", $ftp->message;
$ftp->quit;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Cuando lo hago manualmente la conexión se hace perfecta con el login y password pero desde Perl tengo el siguiente debug:
- Código: Seleccionar todo
Net::FTP>>> Net::FTP(2.75)
Net::FTP>>> Exporter(5.58 )
Net::FTP>>> Net::Cmd(2.26)
Net::FTP>>> IO::Socket::INET(1.29)
Net::FTP>>> IO::Socket(1.29)
Net::FTP>>> IO::Handle(1.25)
Net::FTP=GLOB(0x1ceaecc)<<< 220 FTP Server ready (HLR9820).
Net::FTP=GLOB(0x1ceaecc)>>> user benito
Net::FTP=GLOB(0x1ceaecc)<<< 331 Password required for benito.
Net::FTP=GLOB(0x1ceaecc)>>> PASS ....
Net::FTP=GLOB(0x1ceaecc)<<< 530 Logged incorrect.
No puedo conectarme Logged incorrect.