Foro - Perl en Español

Publicado: **2014-09-29 12:39 @568**

Hola,

¿cómo se enviaría un directorio a un servidor externo por FTP? Actualmente envío fichero txt, CSV, y binarios... con el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/local/bin/perl
 
use Class::Date qw(date now);
use File::Path ;
use DateTime;
use BSD::Resource;
use File::Copy;
use Net::FTP;
 
my $username = "web.com";
my $pwd = "¿Quien sabe?";
 
my $ftp = Net::FTP->new("xxx.xx.xxx.xxx", Debug => 0) or die("No s'ha pogut connectar el servidor: $!");
$ftp->login($username,$pwd) or die("Login incorrecte: $!");
#ACCIONS
$ftp->cwd("html/");
my @arxius = glob("/home/enric/csv/*.csv");
foreach my $File(@arxius){
$ftp->put("$File");
}
my @arxius2 = glob("/home/enric/interpolats/*.png");
foreach my $File(@arxius2){
$ftp->binary();
$ftp->put("$File");
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Publicado: **2014-09-29 12:58 @582**

Yo estoy haciendo un proyecto similar, para mover todo un directorio, pero uso SFTP, y mira, hay dos opciones: o lo comprimes y lo envías, o te toca enviar fichero por fichero... UNIX tiene el comando cp que también te mueve un fichero de servidor a servidor...

En este caso lo mejor es que lo comprimas o lo envíes uno por uno, o mejor usa un módulo más avanzado, para hacerlo, como puede ser: Net::SFTP o el Net::SFTP::Recursive

Publicado: **2014-09-29 13:39 @610**

El proceso es el mismo que si fuera copiar un árbol de directorios:

Para todos los contenidos del directorio
Si es un directorio, entrar en él y nos volvemos a ejecutar de forma recursiva
Si es un archivo, lo copiamos
Una vez terminado de copiar todos, subimos un nivel o termina el programa.

Lo más cómodo, desde luego, es usar un módulo, como el caso de Net::FTP::Recursive.

Publicado: **2014-09-29 13:47 @616**

¡Gracias a los dos!

Foro - Perl en Español

Enviar carpeta por FTP a servidor

Enviar carpeta por FTP a servidor

Re: enviar folder por ftp a servidor

Re: Enviar carpeta por FTP a servidor

Re: Enviar carpeta por FTP a servidor