¿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:
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
