Foro - Perl en Español

Bueno, pues primeramente me presento: me llamo Jacob Nuñez, y me estoy tratando de meter en este gran mundo de la programación en Perl.

Ya hace varios años que he tratado de desarrollar un script CGI en Perl que pueda subir archivos grandes en pequeñas partes, a lo mejor esto ya lo han visto por ejemplo en RapidShare o MegaUpload; los scripts que tienen (el de RapidShare está en hecho en Perl), al subir un archivo, como que lo van subiendo en pequeñas partes y así no importa que sea un archivo de 100Mb lo sube y no hay problemas.

Eso es más o menos lo que quiero tratar de hacer: subir un archivo grande en pequeñas partes. Ojalá me puedan echar una mano.

Saludos.

Bienvenido a los foros de Perl en Español, timh.

No sabía la relación entre Perl y RapidShare. He buscado en Google por ese par de palabras y salen un montón de enlaces. Muchos se refieren a los propios ficheros alojados en RapidShare, pero también aparecen enlaces a algo más interesante.

Por ejemplo, un enlace en CPAN al módulo Win32::IEAutomation::RapidShare para descargar ficheros.

También aparece un script de la propia empresa para hacer lo que tu dices, subir poco a poco el fichero, pero he revisado el código y no parte el fichero en partes, si no que lo sube entero.

Lo he mirado un poco, y parece que se puede modernizar fácilmente. He incluso incorporar lo de partir en trozos, pero desconozco cómo interactuar con RapidShare para hacerlo de esa manera.

Bueno, gracias por la respuesta pero la idea no es interactuar con RapidShare, sino yo en mi propio servidor subir los archivos por partecitas pequeñas. El script de RapidShare era solo un ejemplo de cómo quería hacerlo.

Básicamente esta inquietud me surge que al querer subir archivos grandes a un servidor por método convencional éste falla, ya sea debido al tiempo de ejecución del script o max_time_execution, o al tamaño restringido para subir archivos que tienen los servidores, pero si estos archivos se pudieran subir en pequeñas partes esto no sería problema. Más o menos tengo una idea pero no sé bien cómo implementarla en un script de Perl.

La idea es la siguiente:

1. Mediante un formulario seleccionar el archivo que se desea subir.
2. Leer solo un pequeño buffer de él, por ejemplo, de 1Kb, guardar ese archivo en el servidor y guardar la dirección de la parte del archivo donde finalizó la lectura, es decir donde se quedó.
3. Después hacer otra petición de lectura pero comenzando en la dirección donde finalizó la anterior lectura, leer otro kylobyte y volver a escribirlo en el servidor pero ahora comenzando en la dirección donde se había quedado.

Bueno, no sé si está muy clara mi idea pero más o menos creo que ése sería el proceso. No sé qué opinan de esto.

Saludos.

Entiendo lo que quieres hacer.

Entonces se trata de dos procesos.

Desde el lado del cliente, tu, con un programa, debes ser capaz de partir el fichero en partes, porque el navegador por sí solo no lo va a hacer. No creo que con JavaScript se pueda hacer, ni con otro complemento del navegador, porque las medidas de seguridad tan fuertes que tienen impiden todo acceso a la escritura en el sistema de ficheros local.

Desde el lado del servidor, se trataría de ir recibiendo los trozos e irles pegando, como tu indicas.

Quedaría por ver cómo indicar al servidor qué parte se ha transmitido. Se podría hacer igual que con el mismo método que usan otros programas similares (en UNIX/Linux existe el comando split). Se podría indicar en el propio nombre del trozo enviado, por ejemplo, al final del nombre, poner '_#743658', que indicaría, por ejemplo, que ese trozo corresponde a la parte que empieza en el byte indicado por el número. La longitud será la del trozo enviado.

Desde Perl, sería muy sencillo hacerlo, porque lo recibimos como un upload más, y también sabemos su nombre, y de ahí hacemos un seek() para posicionar el puntero de escritura, y allí es donde lo guardamos.

Esta sería la primera parte: