Foro - Perl en Español

por **makhix** » 2009-09-03 15:52 @703

Hola muchachos, buenas tardes...
Tengo un pequeño problemita subiendo archivos al server, me tira el error:

Software error:

Malformed multipart POST: data truncated

For help, please send mail to this site's webmaster, giving this error message and the time and date of the error.

Creo que es porque no se forma bien el header, pero la verdad no sé bien cómo funciona el asunto.

Paso el código a ver si tienen alguna idea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

  <fieldset class="adj">
     <legend><a class="titulo2">Archivos Adjuntos</a></legend>
        <form action="sube_adj.pl" method="post" enctype="multipart/form-data">
                <input class="brow" type="file" onchange="adjunt(this)"/>
                <br /><br />
                <input type="submit" value="adjuntar archivo" />
        </form>
  </fieldset>
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Y el cgi es :

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
 
my %Input;
 
my $query = new CGI;
my @pairs = $query->param;
 
foreach my $pair(@pairs)
        {
        $Input{$pair} = $query->param($pair);
        }
 
#Directorio donde queremos estacionar los archivos
my $dir = "/adjuntos";
 
#Array con extensiones de archivos que podemos recibir
my @extensiones = ('gif','jpg','jpeg','bmp','png');
 
&recepcion_de_archivo(); #Iniciar la recepcion del archivo
 
#TODO SALIO BIEN
print "Content-type: text/html\n\n";
print "<h1>El archivo fue recibido correctamente</h1>\n";
 
exit(1);
 
sub recepcion_de_archivo {
    my $nombre_en_servidor = $Input{'archivo'};
    $nombre_en_servidor =~ s/ /_/gi;
    $nombre_en_servidor =~ s!^.*(\\|\/)!!;
 
    my $extension_correcta = 0;
 
    foreach (@extensiones) {
        if ($nombre_en_servidor =~ /\.$_$/i) {
            $extension_correcta = 1;
            last;
        }
    }
 
    if ($extension_correcta) {
        #Abrimos el nuevo archivo
        open (OUTFILE, ">$dir/$nombre_en_servidor") || die "No se puedo crear el archivo";
        binmode(OUTFILE); #Para no tener problemas en Windows
 
        #Transferimos byte por byte el archivo
        while (my $bytesread = read($Input{'archivo'}, my $buffer, 1024)) {
            print OUTFILE $buffer;
        }
 
        #Cerramos el archivo creado
        close (OUTFILE);
    }
    else {
        print "Content-type: text/html\n\n";
        print "<h1>Extension incorrecta</h1>";
        print "Sólo se reciben archivo con extension:";
        print join(",", @extensiones);
        exit(0);
    }
 
} #sub recepcion_de_archivo
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Bueno, gracias de antemano por estar ahí y darnos una mano a los que recién arrancamos con Perl-CGI.

PD: Espero que el código no tenga copyright :lol:

¡Ánimo con el CGI!

Ya verás, cuando sepas algo más, que puedes reducir mucho el código que has puesto, gracias a las funciones que da CGI. Y cuando descubras HTML::Template, ¡vamos!.

El mensaje de error sale cuando el módulo CGI se encuentra conque el descriptor de fichero conectado al fichero que estamos recibiendo, marca un fin de fichero:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

die"Malformed multipart POST: data truncated\n"if$self->eof;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Por el código, no veo dónde puede estar el error, pero el mensaje es tan difuso, que podría ocurrir incluso porque el fichero no ha sido transmitido.

En el manual de CGI, en la parte de subida de ficheros, se recomienda el uso de la función upload():
(no probado)

Sintáxis: [ Descargar ] [ Ocultar ]

<input type="file" id="file" name="file">

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$fh= upload('file');
while(my$buffer=<$fh>){
print OUT $buffer;
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Fíjate, que, a diferencia de tu código, sí que le puesto un 'name' al campo 'file', para poder luego hacer referencia a él en la función upload().

Prueba lo mismo: dale un 'name' al campo, a ver qué pasa.

por **makhix** » 2009-09-03 17:18 @762

Lo intentaré. Gracias por la rapidez de la respuesta, espero algún día poder pagarte las cervezas que te debo ya... :lol:

por **makhix** » 2009-09-03 17:26 @768

Perdón por la insistencia, pero ¿dónde lo subiría al archivo?
¿O cómo hago para indicarle a dónde subirlo?

Algo así como:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$fh= upload(adjuntos/'file');
while(my$buffer=<$fh>){
print OUT $buffer;
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Bueno nuevamente gracias y andá contando las birras...

por **explorer** » 2009-09-03 18:22 @806

No, no lo has entendido.

La función upload() nos da el descriptor del fichero que el usuario está subiendo, y que usaremos para leerlo y copiarlo al destino.

Antes, tienes que haber abierto ese fichero destino, como tienes en el código que has mostrado el principio.

El parámetro que se le pasa al upload() es el nombre del campo <input> HTML de tipo file donde el usuario indica el fichero a subir.

En tu ejemplo, tienes esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<input class="brow" type="file" onchange="adjunt(this)"/>Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero aquí no le has indicado ningún nombre o id. Lo ideal es que tenga uno. Así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<input class="brow" type="file" name="fichero" onchange="adjunt(this)"/>Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora ya puedes usar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

upload('fichero')Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

para conectar con el fichero que se sube.

por **makhix** » 2009-09-04 13:14 @593

Ok, a ver si entiendo...

Lo que llamas descriptor es un puntero al archivo, ¿no?

Y lo que tengo que hacer es reemplazar la parte del código que me está pasando el archivo al cgi, ¿no? o sea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my %Input;
my $query = new CGI;
my @pairs = $query->param;
foreach my $pair(@pairs)
        {
        $Input{$pair} = $query->param($pair);
        }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Por esta otra:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $fh = upload('file');
while (my $buffer = <$fh>) {
    print OUT $buffer;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y luego hacer que se escriba la salida del archivo ya abierto que en es este caso estaría en esta parte del código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    if ($extension_correcta) {
        #Abrimos el nuevo archivo
        open (OUTFILE, ">$dir/$nombre_en_servidor") || die "No se puedo crear el archivo";
        binmode(OUTFILE); #Para no tener problemas en Windows
        #Transferimos byte por byte el archivo
        while (my $bytesread = read($Input{'archivo'}, my $buffer, 1024)) {
            print OUTFILE $buffer;
        }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Bueno gracias por tu tiempo y perdón por mi cabeza dura...

por **explorer** » 2009-09-04 13:50 @618

Pues no... tampoco atinas en esta ocasión...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$fh= upload('archivo');
while(my$buffer=<$fh>){
print OUT $buffer;
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

sustituye a

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while(my$bytesread=read($Input{'archivo'},my$buffer, 1024)){
print OUTFILE $buffer;
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Fíjate que está haciendo un bucle para leer de un fichero y escribir en otro.

por **makhix** » 2009-09-04 14:18 @638

Jajaja. Si es que la puntería falla los viernes :lol:

Mirá eso que me dijiste lo deduje luego de postearlo (mal por mi) que no edité...

Pero mira, te pego el código y me tira el error aunque subo un jpg:
Extension incorrecta
Sólo se reciben archivo con extensión: gif, jpg, jpeg, bmp, png

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
 
my %Input;
my $query = new CGI;
my @pairs = $query->param;
foreach my $pair(@pairs)
        {
        $Input{$pair} = $query->param($pair);
        }
        
#Directorio donde queremos estacionar los archivos
my $dir = "/adjuntos";
 
#Array con extensiones de archivos que podemos recibir
my @extensiones = ('gif','jpg','jpeg','bmp','png');
 
&recepcion_de_archivo(); #Iniciar la recepcion del archivo
 
#TODO SALIO BIEN
print "Content-type: text/html\n\n";
print "<h1>El archivo fue recibido correctamente</h1>\n";
exit(1);
 
sub recepcion_de_archivo 
{
my $nombre_en_servidor = $Input{'archivo'};
$nombre_en_servidor =~ s/ /_/gi;
$nombre_en_servidor =~ s!^.*(\\|\/)!!;
my $extension_correcta = 0;
foreach (@extensiones) 
        {
        if ($nombre_en_servidor =~ /\.$_$/i) 
                {
                $extension_correcta = 1;
                last;
                }
        }
        if ($extension_correcta) 
                {
                my $fh = upload('file');
 
                open (OUTFILE, ">$dir/$nombre_en_servidor") || die "No se puedo crear el archivo";
                binmode(OUTFILE); #Para no tener problemas en Windows
                while (my $buffer = <$fh>) 
                        {
                        print OUT $buffer;
                        }
                #Cerramos el archivo creado
                close (OUTFILE);
                }else {
                                print "Content-type: text/html\n\n";
                                print "<h1>Extension incorrecta</h1>";
                                print "S&oacute;lo se reciben archivo con extensi&oacute;n: ";
 
                                print join(", ", @extensiones);
                                exit(0);
                                }
}#sub recepcion_de_archivo
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero es cuestión de depurarlo... Así que mil gracias, por lo menos sé que me pasa el archivo al cgi y que debería subirlo.
Te mando un abrazo y gracias por todo.

por **explorer** » 2009-09-04 14:23 @641

En el código HTML, ¿cómo se llama el campo que almacena el nombre del fichero? ¿'file' o 'archivo'?

Según el código que pones en el primer mensaje, es 'file', pero en el código que pones ahora, es 'archivo':

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$Input{'archivo'}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **makhix** » 2009-09-04 14:39 @652

Tío, qué paciencia que me tenés...

En realidad se llama 'file'; si lo pongo así me tira este error:

Software error:

Undefined subroutine &main::upload called at C:\http\new\0-0\nuevositio\prototipo\sube_adj_t.pl line 44.

For help, please send mail to this site's webmaster, giving this error message and the time and date of the error.

Así que me gustó mas que me tire un error del script... :lol:

y lo cambié.

Pero me imagino que será que no me toma la función upload()... Es que tengo problemas con los módulos, los admin de acá dejan mucho que desear... y todavía no doy pie con bola con lo de las librerías en el @INC. Pero luego trabajaré en esto.

Foro - Perl en Español

Malformed multipart POST: data truncated

Malformed multipart POST: data truncated

Publicidad

Re: Malformed multipart POST: data truncated

Re: Malformed multipart POST: data truncated

Re: Malformed multipart POST: data truncated

Re: Malformed multipart POST: data truncated

Re: Malformed multipart POST: data truncated

Re: Malformed multipart POST: data truncated

Re: Malformed multipart POST: data truncated

Re: Malformed multipart POST: data truncated

Re: Malformed multipart POST: data truncated

¿Quién está conectado?