Foro - Perl en Español

por **JavierMolina** » 2011-05-01 12:10 @549

Hola amigos, este foro me es muy útil en mis andanzas con Perl, aunque no me había registrado hasta ahora, que tengo un problemilla que no puedo solucionar :oops:

La cosa es que tengo problemas con la codificación en un cgi. Desde un formulario, se debe mandar una dirección web al script y éste debe generar un resultado y mostrarlo en formato web, obviamente. El caso es que los caracteres no salen correctamente. He probado a especificar en la cabecera del html la codificación, y también la he especificado en el script pero sigue sin funcionar:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<html>
    <head>
        <title>Nube de etiquetas</title>
    </head>
    <body>
        <form action="http://localhost/cgi-bin/prueba.pl" method="POST">
            <h3>Web para nube de etiquetas :&nbsp;<h3>
            <p> <input type="text" name="url" size=30> </p>
            <input type="submit" value="Enviar" name="B1">
        </form>
    </body>
</html>
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use utf8;
binmode( STDOUT, ":utf8" );
 
print "Content-type:text/html\n\n";
print
    "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\" />";
 
read( STDIN, $line, $ENV{'CONTENT_LENGTH'} );
@values = split( /&/, $line );
 
print "<html><head><title>Parsing with POST method</title></head>";
print "<body>\n";
print "<h2>These were the values sent</h2>\n";
 
foreach $i (@values) {
 
    ( $varname, $data ) = split( /=/, $i );
    if ( $varname ne "B1" ) {
        print "The variable is $varname, the value is $data<p>";
    }
}
 
print "</body></html>\n";
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El resultado es así:

The variable is url, the value is http://www.elpais.com%2Frss%2Ffeed.html ... Id%3D17041

Espero que podáis ayudarme...

Un saludo.

Estás enviando una marca <meta> en la que indicas que el resto del código HTML va a ir en codificación iso-8859-1, pero resulta que no es así: en la línea 4 estás indicando que todo lo que salga por STDOUT ha de ir codificado en utf8, así que es normal que los caracteres acentuados salgan mal
Los caracteres que muestran la URL están bien codificados. Es así, realmente, como ha sido enviado desde el navegador del usuario a tu programa CGI. Lo que te queda por hacer es descodificarles. Esto lo tienes explicado en el perldoc perlfaq9, en la sección How do I decode or create those %-encodings on the web?, que es usando la función uri_unescape() del módulo URI::Escape, aunque también explica cómo hacerlo de forma directa
No estás usando el módulo CGI, que te ayudaría a reducir el código bastante. Por ejemplo, se encargaría de hacer toda la lectura e interpretación de los parámetros pasados por el usuario, de tal manera que en tu programa solo tendrías que poner un my $url = param('url'); para recibir el parámetro del mismo nombre que el formulario está recibiendo. Mira mi CGI mínimo para que veas un ejemplo de lo que se puede hacer.

por **JavierMolina** » 2011-05-02 03:32 @189

Muchas gracias explorer.

El primer punto que señalas ya lo sabía. Solamente estaba haciendo un montón de pruebas a ver si funcionaba, pero como siempre a lo loco :lol:

. Respecto al segundo punto, también lo había visto y juraría que lo probé sin obtener resultado, ya estaba casi decidido a hacer yo mismo la conversión de la codificación mediante expresiones regulares.

Lo que me ha sorprendido es tu CGI mínimo, no por la minimalidad si no por el hecho de que las direcciones se decodifican correctamente sin incluir nada más, supongo que será por el módulo CGI que no estaba usando.

Un gran aporte, debería estar en algún manual de CGI

¡Muchas gracias!

Foro - Perl en Español

Codificación cgi

Codificación cgi

Publicidad

Re: Codificación cgi

Re: Codificación cgi

¿Quién está conectado?