Comando FTP
Publicado: 2008-11-25 14:22 @640Hola,
Tengo un problema con Perl... he realizado un script para transferir archivos vía ftp de un servidor a otro. El hecho es que me da error cuando se ejecuta la instrucción donde especifico la ruta origen.
Es un script muy sencillo, pero el problema es que recién estoy conociendo Perl y no tengo ni idea de cómo solucionar este problema.
Por favor si alguien puede ayudarme, el script es el siguiente:
Saludos cordiales,
Gonzalo
Tengo un problema con Perl... he realizado un script para transferir archivos vía ftp de un servidor a otro. El hecho es que me da error cuando se ejecuta la instrucción donde especifico la ruta origen.
Es un script muy sencillo, pero el problema es que recién estoy conociendo Perl y no tengo ni idea de cómo solucionar este problema.
Por favor si alguien puede ayudarme, el script es el siguiente:
Using perl Syntax Highlighting
#!/usr/bin/perl
use Net::FTP;
$Host_FTP = "10.40.3.161"; # IP del equipo al que me quiero conectar
$User = "ftpuser";
$Acce = "Nuevatel99";
$Lista = "*.txt";
$Orig = "/u01/utl/MREG/RA";
$Dest = "/ITX";
# $source_dir->cwd("$Orig") or die "Cannot change working directory ", $ftp->message;
$ftp = Net::FTP->new("$Host_FTP", Debug => 0) or die "Cannot connect to some.host.name: $@";
$ftp->login("$User","$Acce") or die "Cannot login ", $ftp->message;
$ftp->cwd("$Orig") or die "Cannot change working directory ", $ftp->message;
$ftp->binary(); #Para guardar un archivo binario
my @List_file_FTP = $ftp->ls("$Lista");
# Inicio del ciclo de lectura
foreach $File_FTP(@List_file_FTP) {
$ftp->cwd("$Orig");
$ftp->get("$File_FTP");
$ftp->delete("$File_FTP");
$ftp->cwd("$Dest");
$ftp->put("$File_FTP");
}
$ftp->quit;
use Net::FTP;
$Host_FTP = "10.40.3.161"; # IP del equipo al que me quiero conectar
$User = "ftpuser";
$Acce = "Nuevatel99";
$Lista = "*.txt";
$Orig = "/u01/utl/MREG/RA";
$Dest = "/ITX";
# $source_dir->cwd("$Orig") or die "Cannot change working directory ", $ftp->message;
$ftp = Net::FTP->new("$Host_FTP", Debug => 0) or die "Cannot connect to some.host.name: $@";
$ftp->login("$User","$Acce") or die "Cannot login ", $ftp->message;
$ftp->cwd("$Orig") or die "Cannot change working directory ", $ftp->message;
$ftp->binary(); #Para guardar un archivo binario
my @List_file_FTP = $ftp->ls("$Lista");
# Inicio del ciclo de lectura
foreach $File_FTP(@List_file_FTP) {
$ftp->cwd("$Orig");
$ftp->get("$File_FTP");
$ftp->delete("$File_FTP");
$ftp->cwd("$Dest");
$ftp->put("$File_FTP");
}
$ftp->quit;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Saludos cordiales,
Gonzalo
