[Rio-pm] Digest Rio-pm, volume 40, assunto 3
gabriel lima
gabriellima333 em hotmail.com
Quarta Junho 4 07:13:05 PDT 2008
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
Mais detalhes sobre a lista de discussão Rio-pm