[Rio-pm] Digest Rio-pm, volume 40, assunto 3

[gabriel lima]

Desculpe pessoal...
 
#!/usr/bin/perl
  use strict;  use Net::FTP;
  my $dir = "/DIR";  my $ftp = Net::FTP->new("xxx.xxxxxx.xx", Debug => 1)            or die "Erro: $@";
  $ftp->login("$ARGV[0]", "$ARGV[1]")            or die "Erro: ", $ftp->message;
  $ftp->cwd($dir)            or die "Erro: ", $ftp->message;
  my @files = $ftp->dir            or die "Erro: ", $ftp->message;
  for(@files){    $_ =~ s/.*\s{1,}//g;    next if /ANTERIOR/;    print "$_\n";    $ftp->get($_) or warn "Erro: ", $ftp->message;  }
  $ftp->quit;
_________________________________________________________________
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça  o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080604/ba3aff44/attachment.html