El siguiente código conecta con un servidor externo, entra en un directorio, elimina ficheros gif y luego envía a esta carpeta vacía nuevos ficheros gif desde el ordenador.
Me encuentro que conecta con el servidor externo, elimina los gif y envía correctamente los gif en el primer directorio seleccionado. Posteriormente repito la misma operación pero en otro directorio.
El problema es el siguiente: No me selecciona el nuevo directorio, y envía el segundo paquete de ficheros gif al primer directorio otra vez.
¿En qué parte del código me equivoco?
Using perl Syntax Highlighting
- #!/usr/local/bin/perl
- use Class::Date qw(date now);
- use File::Path;
- use File::Copy;
- use DateTime;
- use BSD::Resource;
- use File::Copy;
- use Net::FTP;
- my $username = "xxx";
- my $pwd = "xxxx";
- my $file = "rain*.gif";
- my $file2 = "wind*.gif";
- my $ftp = Net::FTP->new( "xxx.xx.xxx.xxx", Debug => 0 ) or die("No se ha conectado el servidor: $!");
- $ftp->login( $username, $pwd ) or die("Login incorrecto: $!");
- # ACCIONES
- $ftp->cwd("html/pen/precipitation");
- foreach my $file ( $ftp->ls("rain*.gif") ) {
- $ftp->delete($file) or die "Error in delete\n";
- }
- my @arxius = glob("/home/gif/Pen/rain*.gif");
- foreach my $File (@arxius) {
- $ftp->binary();
- $ftp->put("$File");
- }
- $ftp->cwd("html/pen/wind");
- foreach my $file2 ( $ftp->ls("wind*.gif") ) {
- $ftp->delete($file2) or die "Error in delete\n";
- }
- my @arxius2 = glob("/home/gif/Pen/wind*.gif");
- foreach my $File (@arxius2) {
- $ftp->binary();
- $ftp->put("$File");
- }
- $ftp->quit or die("No se ha desconectado del servidor: $!");
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
