🚀 go-pugleaf

Hola grupo.
No todo va a ser preguntas, yo voy a poner algo que me ha alegrado
la vida.
�Aguien ha necesitado realizar un script que descargue, o cargue
unos ficheros por FTP?, yo si y me volvi loco leyendo el man del
ftp. Por eso envio al grupo la solucion que le di. Esta hecho en
perl, pero no creo que sea tan dificil, como para coger este codigo
y adaptarlo a las necesidades de cada uno:

En este script me conecto al ftp de borland, y me descargo un
compilador de java. Como veis es sencillo, y se puede tener bastante
control con la conexion, aunque yo he quitado el codigo de control,
ya que con esto funciona, y con el codigo de control para realizar
reintentos, se podia confundir al no inciado.

Espero tener respuestas con codigo otimizado, o criticas respecto al
codigo. Por supuesto es con licencia GNU.

-------miftp-----------
#!/usr/bin/perl
use Net::FTP;

$server="ftpc.inprise.com";
$port= 21;
$username = "anonymous";
$password = "correo\@host.com";
$remote_directory = "/pub/jbuilder/jb35foundation/windows";
$directorio_local= "/home/sistemas/david/javafoundation";
$filename= "win_jb35foundation.zip";

$ftp = Net::FTP->new($server, Port=>$port) or die "No puedo
conectar: $@\n";
print "conectando...\n";
$ftp->login($username, $password) or die "No puedo hacer login\n";
print "\nhecho.\ncambiando de directorio...\n";
$ftp->cwd($remote_directory) or die "No puedo cambiar el
directorio\n";
print "\nhecho.\ncambiando a modo binario...\n";
$ftp->binary;
print "\nhecho.\ncambiando al directorio local ...\n";
chdir($directorio_local);
print "\nhecho.\nobteniendo archivo ...\n";
$filename="win_jb35samples.zip";
$ftp->get($filename) or warn "No puedo obtener el fichero
\"$filename\"\n";
$filename="win_jb35docs.zip";
$ftp->get($filename) or warn "No puedo obtener el fichero
\"$filename\"\n";
$filename="win_jb35foundation.zip";
$ftp->get($filename) or warn "No puedo obtener el fichero
\"$filename\"\n";
print "\nhecho.\n Desconectando...\n";
$ftp->quit();
print "desconectado\n";
-------miftp-----------

______________________________
David Rodr�guez Fern�ndez.