<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body class='hmmessage'>
Oi pessoal tudo bem?<br><br>Bom, instalei o módulo Net::FTP para baixar uma lista de arquivos,<br>de um FTP. Mas em algum momento, quando o script está baixando um <br>dos arquivos, ocorre um erro fazendo com o script não responda mais.<br><br>São mais ou menos 300 arquivos, com alguns KB cada. Os arquivos<br>estão nomeados da seguinte forma:<br><br>pub030604.zip<br>pub030605.zip<br>pub030606.zip<br>.<br>.<br>.<br>pub0306300.zip<br><br>Eu acho que vendo o código e postando o erro vocês podem me ajudar...<br><br>#!/usr/bin/perl<br><br> use strict;<br> use Net::FTP;<br><br> my $dir = "/DIRETORIO";<br> <br> my $ftp = Net::FTP->new("ftp.empressa.aqui", Debug => 1)<br> or die "Erro: ", $ftp->message;<br><br> $ftp->login("$ARGV[0]", "$ARGV[1]")<br> or die "Erro: ", $ftp->message;<br><br> my @files = $ftp->dir;<br><br> foreach(@files){<br> $_ =~ s/.*\s{1,}//g;<br> next if /ANTERIOR/;<br> print "$_\n";<br> $ftp->get($_) or die "Erro: ", $ftp->message;<br> }<br><br> $ftp->quit;<br><br>E o erro que ocorre em um dos arquivos:<br>----------------------------------------------------------------------<br><<< 200 PORT command successful. Consider using PASV<br>>>> RETR pub030620.zip<br>----------------------------------------------------------------------<br><br>Eu até consigo baixar alguns arquivos (100 aprox.), mas a lista completa<br>não, o script trava ali. Não faço ideia do que está acontecendo. Se alguem<br>me ajudar eu agradeço.<br><br>E me desculpe pelo código, eu sei que está horrivel,<br>mas com o tempo eu prometo melhorar =P<br><br>Até mais pessoal!<br><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>