[Rio-pm] Problema com Net::FTP

[gabriel lima]

Toda vez que eu vou postar escrevo algo errado...
#!/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;
_________________________________________________________________
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos!
http://www.amigosdomessenger.com.br
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080604/83dbe0d8/attachment.html