Foro - Perl en Español

Hola, estoy guardando archivos vía web desde Perl y efectivamente los guarda pero con 0 bytes, el panorama es el siguiente:

El directorio se encuentra creado con los siguientes permisos:
drwxrwxrwx 4 root root 26 Jul 10 15:03 Directorio_Destino

En el directorio anterior creé dos directorios más:
drwxrwxrwx 5 root root 51 Jul 12 13:37 D1
drwxrwxrwx 4 root root 36 Jul 12 14:37 D2

En los directorios anteriores se crean directorios de acuerdo a la fecha que se elija:
drwxr-xr-x 2 apache apache 68 Jul 12 14:30 18-05-01
drwxr-xr-x 2 apache apache 68 Jul 12 14:37 18-05-02

Y en el directorio recién creado, y de acuerdo a la fecha seleccionada, se guardan los archivos seleccionados, PERO con 0 bytes:

-rw-r--r-- 1 apache apache 0 Jul 12 14:44 18-05-02-VIDEO
-rw-r--r-- 1 apache apache 0 Jul 12 14:44 18-05-02-FOTO
-rw-r--r-- 1 apache apache 0 Jul 12 14:44 18-05-02-AUDIO

El código que utilizo para guardar los archivos es:


PERO LOS ARCHIVOS SE GUARDAN CON 0 BYTES. ¿Alguien tendrá una idea sobre ello?

Gracias.

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

Gracias, explorer, le hacían falta las comillas. Sucede que anteriormente funcionaba sin comillas.

Pero les puse las comillas y se ejecutó correctamente.

Gracias.

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

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

No me di cuenta de tu comentario, una gran disculpa, el error es en el uso de:

copy $upload_filehandle, $anio-$mes-$dia-$nombre_archivos[$ind];
open my $OUTFILE, '>', $name_file;
print $OUTFILE $buffer;

¿Lo estoy copiando dos veces con el empleo de las funciones copy y print?

Por favor agradeceré tu respuesta.

Saludos y Respetos.

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

Corregido. Gracias, explorer.

Respetos para ti.

Buenas tardes, explorer. Una vez más problemas con la grabación de archivos, hago todo de acuerdo a lo recomendado anteriormente y no logro guardar los archivos, cuando se ejecuta la instrucción copy envía mensaje de que no cuenta con lo permisos requeridos para hacer el copy.

Los permisos de los directorios son los siguientes:

DIRECTORIO: /var/www/html
Permisos:
755 root.root html/
755 apache.apache public_html/
775 apache.apache Bitacora/
775 apache.apache DIR1/
775 apache.apache DIR2/

La instrucción: mkdir $upload_dir, 0775; se ejecuta PERO crea los DIR con permisos 755, y al ejecutar:

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

Envía el error:

Software error:
Permission denied at /var/www/cgi-bin/Bitacora/save_bitacora.plx line 224.

Y la línea 224 es: copy($upload_filehandle,"$anio-$mes-$dia-$nombre_archivos[$ind]") or die $!

Agradeceré tu valioso apoyo, porque no encuentro el error.

Enormes gracias y respetos para ti.

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.

Enormes gracias por tu apoyo, explorer.

Respetos para ti.
seafree