CGI - Me urge escribir en un fic txt del servidor

Estoy probando mediante:
@datos=("el","yo","tu");
@registro=join(";",@datos);
open(MOSCAS,"44ta6666.txt");
foreach $campo(@registro) {print MOSCAS $campo;}
print MOSCAS "EEEEEEEEEEEEEE\n";
close(MOSCAS);

Pero no hay manera ni da mensaje de error.
He dado permiso 777 y 666, pero ni por esas.

Gracias por adelantado.

Parece que estás intentando escribir datos en el archivo "44ta6666.txt" utilizando Perl. Sin embargo, el código proporcionado tiene algunos problemas que podrían estar causando que no se escriban los datos en el archivo. A continuación, te muestro los problemas y una versión corregida del código:

Problemas en el código proporcionado:

1. No se define la ruta completa del archivo: Asegúrate de proporcionar la ruta completa del archivo, incluyendo la ruta desde la raíz del servidor hasta el archivo.

2. Falta de manejo de errores: Si hay problemas al abrir o escribir en el archivo, es posible que no estés viendo mensajes de error. Deberías implementar manejo de errores para detectar cualquier problema que pueda estar ocurriendo.

Código corregido:


Asegúrate de reemplazar `"ruta_completa"` con la ruta real del archivo "44ta6666.txt". Este código utiliza `open` con el modo de escritura `'>'` para abrir o crear el archivo. Además, implementa manejo de errores utilizando `die` para mostrar un mensaje en caso de que no se pueda abrir el archivo.

Si ejecutas este código y ves el mensaje "Datos escritos exitosamente en el archivo.", significa que los datos se han escrito correctamente en el archivo. Si no ves el mensaje, revisa la ruta del archivo y verifica si hay problemas en la ejecución del script.