Foro - Perl en Español

El problema que tenemos es que no sabemos algunas cosas del código.

¿Qué valor tiene $_ al entrar en esas líneas?

¿Qué es o de dónde sale la función copy? ¿No faltan comillas dobles en el segundo argumento?

Si los archivos se crean con 0 bytes es que el open() y el close() han funcionado. Así que lo que falla es el print(). Más bien diríamos que el programa no ejecuta ningún print(), por lo que podemos pensar que el while() falla, o sea, que $upload_filehandle está cerrado, en caso de que almacene un identificador de archivo abierto antes.

Yo, lo que sospecho, es que copy() es del módulo File::Copy. Si es así, en la documentación se dice que si el primer argumento de copy() es un identificador de archivo, éste será el que se lea para guardarse en el destino.

O sea... que se lee el archivo ENTERO y se guarda en un nuevo archivo indicado por el segundo argumento. PERO... a continuación haces un open()... provocando que el archivo destino se ponga a 0. Y ya no entra en el while() porque el identificador de archivo llegó al final de archivo por efecto del copy() anterior.

En resumen: que estás copiando el archivo dos veces, y a la segunda, lo estás poniendo a cero.

Yo probaría a usar algo sencillo, sin File::Copy (sacado de la página de manual de CGI) (no probado):

Usando File::Copy, quizás sea más corto (te ahorras todas las líneas entre open() y close(), incluidas). Sería tan corto -no lo he probado- como

Sí, eso ya te lo comenté, pero, ¿no te das cuenta también de que estás copiando el archivo dos veces?

Sí, te lo explico en este mensaje: uploadfile-0-bytes-t9623.html#p40815

No importa que los directorios se creen con permisos 755: su usuario es el usuario web, así que sigue teniendo permisos para escribir dentro de ellos. El porqué no se crea con los permisos 0775 como le estás indicando es que antes de aplicar los permisos, la máscara se filtra con el valor indicado por el umask asignado al usuario. Más información en perldoc -f mkdir

Nos falta información sobre qué pasa. Una opción es pedirle más información a Perl. Coloca estas líneas al principio del programa:

use diagnostics;
use CGI::Carp qw(fatalsToBrowser);

Lo que intenta hacer la función copy() que has escrito es copiar del archivo abierto con el manejador $upload_filehandle al archivo con nombre formado a partir de la fecha. Pero lo va a crear en el directorio de trabajo actual, no en ninguna subcarpeta. Quizás el problema sea ese.

¿No será así?

copy($upload_filehandle,"$upload_dir/$anio-$mes-$dia-$nombre_archivos[$ind]") or die $!;

Recuerda que es ideal que $upload_dir contenga una ruta absoluta (completa), salvo que estemos seguros de que estamos (directorio de trabajo actual) trabajando en el sitio correcto. Yo lo que hacía era un chdir() al principio para colocarme en el raíz del directorio donde voy a trabajar.