Foro - Perl en Español

por **roy** » 2009-02-21 11:17 @512

Saludos a todos... recién comienzo con esto del Perl y me gusta mucho ya que me da cierto control...

Aquí detallo mi consulta

Escenario:

Yo envío un archivo mediante formulario a un script CGI. Éste lo graba en el servidor mediante este fragmento de código :

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(OUTFILE,">$tmp_dir/$archivo")||die"No Open";
binmode(OUTFILE);

while(read(STDIN,$buffer, 1024))
{print OUTFILE $buffer;}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Resultado del envío (solo fragmento del comienzo y final)

[code]-----------------------------41184676334
Content-Disposition: form-data; name="archivo"; filename="dimension.ppt"
Content-Type: application/octet-stream

{žø×šß=óõ.¯

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

Yo creo que te convendría usar el módulo CGI. Tiene una forma muy cómoda de leer los parámetros enviados por un CGI, ocupándose de si es binario o no, y de quitar la información superflua.

En concreto, necesitas ver la parte de "upload" de ficheros.

Aquí tienes un ejemplo y un tutorial (que lo hace de otra manera).

Hay algún hilo más que habla del asunto.

por **roy** » 2009-02-21 15:13 @676

Efectivamente uso un módulo CGI.

Ya he probado el tutorial que me envía mucho antes de inscribirme al foro y no funcionó en mi servidor.

Así que opté por usar un [i]script[/i] donde utilizan STDIN y logré enviar el archivo pero lo envía con esas cabeceras.

Por eso deduje que si de esta manera funciona, el problema se resumiría en eliminar esas cabeceras y esa línea al final del archivo.

por **kidd** » 2009-02-21 15:33 @689

Básicamente el script que necesitas sería así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI;

my$query=new CGI;

my$ARCHIVO=$query->param("archivo");

openmy$FILE,">","rutal/al/archivo"ordie"Unable to create file: $!";
binmode($FILE);
while(my$bytesread=read($ARCHIVO,my$buffer, 1024)){
print{$FILE}$buffer;
}
close($FILE);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si tu archivo es muy grande puede ser que el módulo CGI lo esté bloqueando. Tiene una opción donde puedes modificar el tamaño máximo de un POST, esto para evitar ese tipo de ataques, para modificarlo simplemente pon:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$CGI::POST_MAX= NÚMERO DE BYTES;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **roy** » 2009-02-21 15:44 @697

Muchas gracias...

El script falla en la línea

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$query=new CGI;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

no la reconoce.

Por eso el fragmento de script que envié si funciona graba el archivo pero lo envía con todo y cabeceras.

por **kidd** » 2009-02-21 15:47 @699

roy escribiste:el script falla en la línea

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
my $query = new CGI;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

¿Y estás cargando el módulo CGI? Eso lo haces con:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Se me haría muy raro que tu versión de Perl no cuente con el módulo CGI, a menos de que sea viejísima.

por **roy** » 2009-02-21 15:58 @707

Esto es lo que puse...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI;

my$query=new CGI;

my$ARCHIVO=$query->param("Archivo");

openmy$FILE,">","/home/www/rcdasoft"ordie"Unable to create file: $!";
binmode($FILE);
while(my$bytesread=read($ARCHIVO,my$buffer, 1024)){
print{$FILE}$buffer;
}
close($FILE);
print"Content-type: text/html\n\n";
print"Archivo subido con &eacute;xito<br/>";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y no funciona

Éste sí funciona; graba el archivo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -W
use CGI;
use CGI::Carpqw(fatalsToBrowser);
use Fcntl qw(:DEFAULT :flock);
use File::Tempqw/ tempfile tempdir /;
use LWP::UserAgent;
use HTTP::Request;

$tmp_dir="/home/www/rcdasoft/";
$max_upload=500000;

$archivo="ejemplo.jpg";

$datos_archivo="$tmp_dir/$archivo";
$tam_archivo="$tmp_dir/$archivo"."tam";

$content_type=$ENV{'CONTENT_TYPE'};
$content_length=$ENV{'CONTENT_LENGTH'};

open(OUTFILE,">$tmp_dir/$archivo")||die"No se puedo crear el archivo";
binmode(OUTFILE);

while(read(STDIN,$buffer, 1024)){
print OUTFILE $buffer;
}

close(OUTFILE);

print"Content-type: text/html\n\n";
print"Archivo subido con &eacute;xito<br/>";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero graba el archivo con las cabeceras que menciono al inicio y que quiero eliminar pero no sé cómo.

por **explorer** » 2009-02-21 17:20 @764

Prueba con este (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use warnings;

use CGI;
use CGI::Carpqw(fatalsToBrowser);

my$directorio='/home/www/rcdasoft/';

my$cgi= CGI->new();

#my $nombre_fichero = $cgi->param('archivo');  # Algunos navegadores no devuelven correctamente el nombre
my$nombre_fichero='archivocualquiera';# Ponemos un nombre de fichero cualquiera

my$fichero=$cgi->upload('archivo');# Accedemos al campo upload del formulario
my$buffer;

open OUTFILE,">$directorio/$nombre_fichero";
binmode OUTFILE;# Necesario si estamos en UNIX/Linux
while(read($fichero,$buffer,8192)){# Transferimos en bloques de 8Kb
print OUTFILE $buffer;
}
close OUTFILE;

print$cgi->header(),
$cgi->start_html('Fichero enviado'),
$cgi->p('Fichero enviado'),
$cgi->end_html;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Un par de detalles:

* Con el módulo CGI no es necesario sacar 'a mano' las cabeceras ('Content') del resultado. Con la función header() ya las tenemos

* No es necesario poner el binmode() a $fichero porque estamos usando read() para leer su contenido, así que ya estamos accediendo en formato binario a su contenido.

* En el programa, 'archivo' es el nombre del campo del formulario que el usuario utiliza para enviarnos su fichero. Debes cambiar en el programa ese nombre según el campo del formulario que estés usando en la página

* El acceder a ese campo, se puede hacer de dos maneras, como ves en el código. Con param() accedes al nombre del fichero (según el navegador que se use, será el nombre del fichero o el nombre junto con el path, local, en el lado del cliente). Y la otra forma es con upload(), que devuelve el filehandle del fichero enviado y a partir del cual lo leemos. No usamos STDIN porque en el flujo que recibimos van muchas cosas mezcladas (cabeceras, separadores de campo, los propios valores de campos, etc.); por eso usamos CGI, para que se ocupe de esas cosas. Nosotros solo usamos upload() y nos olvidamos de todo lo demás.

Otra opción más corta (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl

use CGI ':standard';
use CGI::Carp'fatalsToBrowser';

$directorio='/home/www/rcdasoft/';

$nombre_fichero= param ('archivo');
$fichero= upload('archivo');

open OUTFILE,">$directorio/$nombre_fichero";
while(<$fichero>){
print OUTFILE $_;
}
close OUTFILE;

print header,

      start_html('Fichero enviado'),

      p('Fichero enviado'),

      end_html;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **roy** » 2009-02-21 17:33 @772

No funciona.
No captura los datos del campo.

Como les decía, este servidor solo lo hace con STDIN.

Y la idea es buscar una opción que filtre eso datos demás.

por **explorer** » 2009-02-21 17:39 @777

En el new() del CGI, lo cambias por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$query=new CGI(\*STDIN);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y asunto resuelto.

Foro - Perl en Español

Leer campo FILE con STDIN

Leer campo FILE con STDIN

Publicidad

¿Quién está conectado?