Oi,

Estamos enfrentando um problema estranho no nosso projecto. temos de enviar alguma xml & arquivos de áudio para um servidor de FTP remoto a partir de uma máquina Linux, estamos fazendo isso em Perl script usando Net:: FTP->. Questão aqui é o. .. quando os arquivos usando FTPed Perl scripts, apenas arquivos vazio (0 bytes) estão sendo criados no servidor remoto e não está recebendo os dados gravados no servidor. Mas somos capazes de transferir manualmente os arquivos para um servidor FTP através ferramenta FTP, mas não quando se tenta fazer o mesmo através de Perl script. Nós verificamos no servidor remoto, e há uma grande quantidade de espaço livre no servidor.

Nosso script está retornando "Bad File Descriptor" erro quando como é trabalhar bem para todo o resto dos outros 50 servidores FTP que temos.

Qualquer ajuda / insumos que se refere a este assunto seria muito apreciado.

Obrigado

Olá, você tem feito o fisrt boa passos para resolver este problema. Parece que só o perl script não pode interagir adequadamente com este servidor FTP e esta OS, um controle remoto. Por favor, deixe-nos saber as versões do SO, FTPD e postar algumas perl código, se possível. Parece um problema de compatibilidade, uma vez que o script está trabalhando contra outros SOs e alguns outros servidores FTP. É importante responder às seguintes questões tão bem - Já mudei o script, o que SOs e servidores FTP com o meu script funciona, e qual é a diferença do controle remoto efeito, nesta tarefa específica. Você pode executar a mesma tarefa contra a outra máquina? Existem alguns caracteres especiais ou de Windows como caminhos no script? Tenho visto "bad file descriptor" quer com o ensaio corrompido arquivo fonte, ou contra o Windows FTP - Eu estava faltando o caminho correto do Windows represenation. HTH.

Oi, Thaks pela sua resposta rápida.

Nossa Linux OS ---> Red Hat Enterprise Linux 2.4.21-47.0.1 (versão 3)
Remoto servidor FTP SO ---> Ubuntu 6.06.1

Abaixo é Perl código, que estamos usando para se conectar ao servidor de FTP remoto e transferir os arquivos.

eval ($ ftp \u003d Net:: FTP-> new ($ remoteServerIP, Debug \u003d> 0) ou $ exitModule \u003d 'true');
if ($ @ $ ou exitModule eq 'true') (

log_error ( "ERRO: Falha ao conectar-se");
eval ($ ftp-> close ())

) else (
eval ($ ftp -> login ($ user, $ Pwd) ou US $ exitModule \u003d 'true');
if ($ @ $ ou exitModule eq 'true') (
log_error ( "ERRO: (". $ ftp-> mensagem. ") Falha de login");
eval ($ ftp-> close ())
) else (
eval ($ ftp-> put ($ SourceFile, $ targetFile) ou $ status \u003d 'ERRO');
my $ ftp_message \u003d $ ftp-> mensagem;
if ($ @ $ ou estatuto eq 'ERROR') (
log_error ( "AVISO: (". $ ftp_message. ") durante a transmissão de erro");
)
)
);


Estamos recebendo o erro "AVISO: Falha ao transferir arquivos. Erro durante a transmissão " (quando tentava empurrar os arquivos usando acima Perl Código), uma vez que dois meses antes de que fomos capazes de transferir os arquivos. Não fizemos nenhuma alteração no nosso servidor remoto e severt para os últimos 12 meses. Nós não somos capazes de descobrir o que de repente a causar o problema.

Obrigado.