<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body class='hmmessage'>
Toda vez que eu vou postar escrevo algo errado...<BR>
<BR>#!/usr/bin/perl<BR>
<BR>
use strict;<BR> use Net::FTP;<BR>
<BR>
my $dir = "/DIR";<BR> my $ftp = Net::FTP->new("xxx.xxxxxx.xx", Debug => 1)<BR> or die "Erro: $@";<BR>
<BR>
$ftp->login("$ARGV[0]", "$ARGV[1]")<BR> or die "Erro: ", $ftp->message;<BR>
<BR>
$ftp->cwd($dir)<BR> or die "Erro: ", $ftp->message;<BR>
<BR>
my @files = $ftp->dir<BR> or die "Erro: ", $ftp->message;<BR>
<BR>
for(@files){<BR> $_ =~ s/.*\s{1,}//g;<BR> next if /ANTERIOR/;<BR> print "$_\n";<BR> $ftp->get($_) or warn "Erro: ", $ftp->message;<BR> }<BR>
<BR>
$ftp->quit;<BR><br /><hr />Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! <a href='http://www.msn.com.br/emoticonpack' target='_new'>É GRÁTIS!</a></body>
</html>