Mi consulta es si estará mal mi código o hay una configuración de time out que me está faltando.
He aquí mi script de pruebas:
Using perl Syntax Highlighting
- use strict;
- use Net::FTP;
- my $user = "root";
- my $pass = "1234";
- my $directorio = '/home/ftp';
- opendir(DIR,"$directorio");
- my @ARCHIVOS = readdir(DIR);
- my $archivo;
- foreach $archivo(@ARCHIVOS)
- {
- unless($archivo eq "." || $archivo eq ".." )
- {
- #print $archivo,"\n";
- my $ftp = Net::FTP -> new("166.166.166.166") or die ("No se pudo establecer conexion: $!");
- $ftp ->login($user,$pass) or die("Login incorrecto: $!");
- $ftp -> put ("$directorio/$archivo","/home/ftp/$archivo");
- print $archivo."\n";
- sleep(10);
- $ftp->quit or die("No se puede desconectar del servidor: $!");
- }
- }
- closedir(DIR);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
