Foro - Perl en Español

Hola a todos:

Estoy desarrollando un proyecto con macromedia Flash, y estoy haciendo con perl un script para subir ficheros mediante el método Filereference.upload() de actionscript.

Mi problema es que si quiero enviar algún parámetro además del fichero que quiero subir, tiene que ser adjuntándolo a la url, por tanto usando el método GET.

He estado buscando y no he encontrado solución para esta cuestión.

Otra duda que tengo es si habría posibilidad de averiguar el tipo MIME del fichero que estoy subiendo al servidor.

Muchas gracias de antemano y saludos a todos.

Hola:

Muchas gracias por la rapidez de respuesta. Por desgracia, el método upload de la clase Filereference de flash, no permite envío de parámetros por el método post. Sólo puedes adjuntar a la url los parámetros. Te copio aquí un pequeño extracto de la documentación de este método:

Parameters

url:String - The URL of the server script configured to handle upload through HTTP POST calls. The URL can be HTTP or, for secure uploads, HTTPS.

You can send data to the server with the upload() call by appending parameters to the URL; for example, http://www.myserver.com/upload.cgi?userID=jdoe

On some browsers, URL strings are limited in length. Lengths greater than 256 characters may fail on some browsers or servers.


Por otro lado, me podrían guiar sobre qué módulos podría usar para localizar el tipo MIME, o donde podría localizar información sobre este tema. He visto que existe el módulo MIME, pero en todos los casos usado para el envio de correos, por lo que no se si me podría servir para el fin que yo busco.

Muchas gracias nuevamente por tu respuesta.

Hola:

Si usas el Flash 8 puedes hacer upload de archivos usando la clase FileReference, aquí un tutorial con el código fuente:
http://www.flash-db.com/Tutorials/upload/

Ahora, después lo puedes integrar con Perl y aquí hay un tutorial que te muestra como subir archivos usando Perl:
http://perlenespanol.com/tutoriales/cgi ... hivos.html

Lógicamente que en vez del formulario en HTML sería con tu Flash.

Ahora para encontrar el MIME de los archivos como te decía explorer hay varios módulos, yo el que uso es es MIME::Types.


Saludos

Hola:

Muchas gracias por vuestras respuestas. Me han aclarado muchas dudas, pero todavia tengo algunas. Estoy intentando que el contenido binario del fichero que quiero subir, se almacene en una variable para luego guardarlo en la base de datos MySQL. Mi duda es como convertir directamente los datos del contenido a una variable. En mi codigo, lo he intentado de esta manera pero me da problemas, no se si estoy haciendo bien:

Código: Seleccionar todo

#!/usr/bin/perl

 use CGI;

 my $query = new CGI;
 
 my $key = $query->url_param("key");
 my $file = $query->param("Filedata");
 my $filedata = $query->upload("Filedata");

 my $content;
 #Transferimos byte por byte el archivo
 while (my $bytesread = read($filedata, my $buffer, 1024)) {
   $content .= $buffer;
 }


gracias por vuestra atención,

explorer escribiste:¿Y qué problemas te da?

Hola:

he revisado bien el proceso, y el fichero que puse arriba finalmente si funciona (el problema estaba en el script que descargaba el fichero)

Muchas gracias por tu ayuda, finalmente todo funciona.

Saludos