Foro - Perl en Español

Hola a todos

Tengo una pregunta referente a poder calcular el tamaño de varios archivos, es decir que el usuario pueda subir archivos pero que se vaya calculando el tamaño y este no debe de sobrepasar 1 MB.

Con esta línea declaro de cuánto debe ser el tamaño de cada archivo, y sí funciona, pero ahora me piden que si suben varios la suma no debe pasar de 1 MB.

Esa limitación es la del total en un solo envío POST.

Lo que sí puede hacer el CGI es que cuando agregue el fichero subido a la carpeta destino, sume la ocupación de los ficheros subidos antes.

Si lo ya subido antes más el nuevo supera el límite, lo borras y la respuesta al cliente es el del mensaje de exceso de espacio ocupado.

Ahora bien, esto es si se sube de uno en uno. Cuando se suben varios de golpe (un formulario con varias entradas de uploads), el límite puesto como $CGI::POST_MAX funciona para todos en conjunto, por lo que ya lo tienes resuelto.

¿Cómo podría sumar cuánto es lo que se lleva?, ¿hay alguna función para hacer eso?

Dado un usuario, se supone que ese usuario reside físicamente en un directorio donde están sus ficheros. Bueno, pues entonces te colocas allí con chdir(), abres el directorio con opendir(), lees los ficheros uno a uno con readdir() y de cada uno preguntas su tamaño con '-s $fichero'. Al final, cierras con closedir() y ya tienes el tamaño de todos los ficheros de ese directorio.

Yo he generado un módulo para dar de alta archivos, no defino cuántos archivos se deben de introducir: es ilimitado; todos esos archivos se guardan en un directorio en común, no lo tengo separado. ¿cómo podría llevar a cabo la acción de poder crear un directorio, pues cada conjunto de archivos pertenece a un folio en sí?

Para crear directorios se usa mkdir().