Caros amigos da lista,
Fiz um script em Perl para baixar arquivos de um site. Por�m, qdo chamo
esse script do shell, ele enche a tela de mensagens com o status de
andamento de dowload de cada arquivo baixado. Bem, gostaria de saber
como poderia fazer para impedir q tais mensagens fossem exibidas!
Aqui vai algumas informa��es q podem ser �teis:
Uilizo RedHat 7.1 - Release 2.4.2-2
O c�digo de FTP do script � o seguinte:
chdir ("$dir_local");
# faz a conex�o com o site remoto
$ftp = Net::FTP->new("$site_remoto", Timeout=>300, Debug => 1) or die
"Can't connect: $@\n";
# efetua o login
$ftp-> login($usuario, $senha) or die "Couldn't authenticate: $!\n";
# acessa o diret�rio remoto especificado
$ftp-> cwd($dir_remoto) or die "Couldn't change directory: $!\n";
print "Estou no diretorio: $dir_remoto\n";
# abre o diret�rio remoto e guarda o conte�do em DIR
opendir(DIR,"$dir_remoto");
readdir(DIR);
$total_baixados =0;
@arquivos = $ftp->ls("$dir_remoto") or die "Cant get a list of files in
directory: $!\n";
# percorre o vetor com o conte�do do diret�rio do site
foreach $arq(@arquivos)
{ next if ($arq eq "."); # verifica se o arquivo � (.), se for,
pula para o pr�ximo arquivo
next if ($arq eq ".."); # verifica se o arquivo � (..), se
for, pula para o pr�ximo arquivo
# captura tamanho em bytes do arquivo remoto
$tam = $ftp-> size($arq);
# se o tamanho for igual a zero, n�o deve ser baixado e pula
para o pr�ximo arquivo
next if ($tam == 0);
# baixa o arquivo
$ftp-> get($arq) or die "Couldn't get file: $!\n";
$total_baixados++;
}
print "Total arquivos baixados: $total_baixados\n";
# fecha conex�o FTP
$ftp->quit () or die "Couldn't quit: $!\n";
Espero ter conseguido passar o meu problema! Desde j� agrade�o a sua
ajuda!
Assinantes em 24/09/2002: 2254
Mensagens recebidas desde 07/01/1999: 184392
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
