Hola,

Nos enfrentamos a un extraño problema en nuestro proyecto. tenemos que enviar xml y los archivos de audio a un servidor FTP remoto desde una máquina Linux, que estamos haciendo en este Perl script utilizando Net:: FTP->. Cuestión aquí es .. FTPed cuando los archivos mediante Perl guiones, sólo los archivos de vacío (0 bytes) están creadas en el servidor remoto y los datos no está escrito en el servidor. Pero somos capaces de transferir los archivos manualmente a un servidor FTP a través de una herramienta de FTP, pero no cuando se intenta hacer lo mismo a través de Perl guión. Se verificaron en el servidor remoto y no hay un montón de espacio libre en el servidor.

Nuestro script está volviendo "Mala descriptor de archivo de error, ya que cuando funciona bien para todo el resto de los otros 50 servidores FTP que tenemos.

Cualquier ayuda o aportaciones respecto a este tema serán bienvenidos.

Gracias

Hola, lo que ha hecho el Primer buenos pasos para solucionar este problema. Parece que sólo la perl script no puede interactuar correctamente con este servidor FTP y este sistema operativo, el mando a distancia uno. Por favor, háganos saber las versiones del sistema operativo, y después algunos ftpd perl código, si es posible. Parece un problema de compatibilidad, ya que el guión está trabajando en contra de otros sistemas operativos y algunos otros servidores FTP. Es importante responder a las siguientes preguntas y - ¿He cambiado el guión, ¿qué sistemas operativos y servidores FTP con mi script, y lo que es la diferencia en el extremo remoto, en esta tarea. ¿Se puede ejecutar la misma tarea en contra de otra máquina? ¿Hay caracteres especiales o Windows-al igual que los caminos en el guión? He visto "mala descriptor de archivo", ya sea dañado prueba con el fichero fuente, o en contra de FTP de Windows - Me faltaba la ruta correcta de Windows represenation. HTH.

Hola, Gracias por su respuesta rápida.

Nuestro Linux OS ---> Red Hat Enterprise Linux 2.4.21-47.0.1 (despacho 3)
Servidor FTP remoto OS ---> Ubuntu 6.06.1

A continuación se Perl código, que estamos utilizando para conectarse al servidor FTP remoto y para transferir los archivos.

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

log_error ( "ERROR: Error al conectar con el");
eval ($ ftp-> close ())

) else (
eval ($ ftp -> login ($ usuario, $ pwd) o $ exitModule \u003d 'true');
if ($ o $ @ exitModule eq 'true') (
log_error ( "ERROR: (". $ ftp-> mensaje. ") no se ha podido iniciar la sesión);
eval ($ ftp-> close ())
) else (
eval ($ ftp-> poner ($ SourceFile, $ targetFile) o $ estado \u003d 'ERROR');
mi ftp_message $ \u003d $ ftp-> mensaje;
if ($ o $ @ eq estado 'ERROR') (
log_error ( "ADVERTENCIA: (". $ ftp_message. ") ha producido un error durante la transmisión");
)
)
);


Estamos recibiendo el error "ADVERTENCIA: No transferencia de archivos. Error durante la transmisión " (cuando trató de impulsar el uso de archivos por encima de Perl código), ya que dos meses antes de que fuimos capaces de transferir los archivos. No hemos realizado cambios en nuestro servidor y remotas severt de los últimos 12 meses. No somos capaces de averiguar lo que de repente causando el problema.

Gracias.