Foro - Perl en Español

Hola a todos...

Quisiera entar a un sitio ftp y descargar los ficheros de una extensión especifica (por ejemplo *.txt). el problema está en coger el listado de ficheros esos y procesarlos...

Tendria algo así como...

Código: Seleccionar todo

use Net::FTP;

  my $USERNAME = "user";
  my $PWD = "pass";
  my $SERVER = "server.com";

  #Abro la conexion FTP;
  my $FTP = Net::FTP->new($SERVER) or die ("No se pudo conectar $!");
  $FTP->login($USERNAME,$PWD) or die ("Login incorrecto: $!");
  $FTP->cwd("/camino_final/");

  #ahora aqui es donde haria un ls *.txt, tomaria la lista de ficheros a descargar y los procesaria.....

  # ??????????

  $FTP->quit();


¿¿ Podrían ayudarme ??

Gracias por adelantado...

Saludos...

Scorpion.

Creo que era algo como esto...

Código: Seleccionar todo

@ficheros = grep { /\.txt$/ } $FTP->ls();

Existe otro módulo, el Net::FTP::Recursive, para bajar todos los ficheros que coincidan con un determinado patrón.