Foro - Perl en Español

por **seafree** » 2012-08-28 10:20 @472

Buenos días, al utilizar:

use utf8;
print $q->header('text/html; charset=UTF-8');

En algún momento se visualizaron los caracteres especiales pero actualmente no es así. Me pueden ayudar, por favor, a determinar la causa. Gracias.

El 'use utf8;' solo sirve para indicar que el propio programa está escrito en utf-8. No influye en la salida de caracteres en utf-8.

La siguiente línea, si suponemos que pertenece a un objeto CGI, lo único que hace es sacar una cabecera HTTP indicando que lo que sigue estará en esa codificación, pero tampoco influye en la salida de caracteres en utf-8.

Es posible que haya ocurrido un cambio de versión de Perl...

Como primera solución (no la he probado), si tienes una versión de CGI moderna, prueba a enviar la cabecera de esta manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print $q->header(
    -type    => 'text/html',
    -charset => 'utf-8',
);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Estaremos enviado la mismas cabeceras, pero además, se estará llamando a la función charset() de CGI, que indica qué codificación queremos en la salida.

¡Ah!, intenta usar una versión de Perl lo más moderna posible.

por **seafree** » 2012-09-03 11:12 @508

Hola, utilicé lo que mencionas pero NO obtengo el resultado esperado. La versión de Perl que utilizo es v5.8.8

¿Tendrás una propuesta más?

Gracias.

por **explorer** » 2012-09-03 11:21 @514

Falta algo muy importante: hay que codificar la salida en utf8.

Como la salida la solemos hacer hacia la salida estándar, basta con hacer un

binmode STDOUT, ":utf8";

al principio del programa, antes de la salida del código HTML.

Resumen (en inglés)

P.D. la v5.8.8 es de hace casi 7 años...

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

$ corelist -r|fgrep 5.8.8

v5.8.8      2006-01-31Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **seafree** » 2012-09-03 11:37 @526

Utilicé lo que dices y tampoco funciona.

Lo raro es que anteriormente sí mostraba los acentos y actualmente no.

Te envío la configuración actual que tengo para mostrar el script de consulta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use utf8;
print $q->header('text/html; charset=UTF-8');
print start_html('SALUDOS');
print "<meta http-equiv='Content-Type' content='text/html; charset=UTF-8' />";
print "<BODY BGCOLOR='#FFFFFF' TOPMARGIN='0' LEFTMARGIN='0'>";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El código anterior lo sustituyo por lo que dices y no obtengo el resultado esperado. ¿Debo de actualizar perl o corregir las líneas anteriores?

por **explorer** » 2012-09-03 12:33 @564

A ver... usando sólo CGI, a mi me funciona bien, incluso desde la línea de comandos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

$ perl-MCGI=:standard -e'use utf8; binmode STDOUT, ":utf8"; print header(-charset=>"utf-8"),start_html(-title => "SALUDOS", -bgcolor => "#FFFFFF", -topmargin => 0, -leftmargin => 0),p("áéíóúñÑ"),end_html, "\n"'

Content-Type: text/html; charset=utf-8

<!DOCTYPE html

        PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"lang="en-US" xml:lang="en-US">
<head>
<title>SALUDOS</title>
<meta http-equiv="Content-Type"content="text/html; charset=utf-8"/>
</head>
<body leftmargin="0"bgcolor="#FFFFFF"topmargin="0">
<p>áéíóúñÑ</p>
</body>
</html>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Mi terminal está en utf8, así que veo los caracteres perfectamente.
Lo he probado con v5.10.1 y v5.16.1. v5.8.8 debería estar completamente adaptado a Unicode.

Pero lo curioso es que dices que ha sido el cambio de repente. ¿No será que lo que ha cambiado es el servidor web?

por **seafree** » 2012-09-03 13:46 @615

Gracias por continuar, con tu código, creo un archivo html y visualizo bien los caracteres pero necesito adecuarlo a que sea un cgi.

por **explorer** » 2012-09-04 06:51 @327

La línea de comandos que te he escrito ya es un CGI. Incluso usa el mismo módulo que tú, el CGI.pm.

Lo que no sabemos es por qué el tuyo no genera los caracteres.

La clave está en el binmode(), que hace que la salida vaya codificada en utf8.

¿Por qué no pruebas a construir un CGI mínimo, lo ejecutas en el servidor, y nos dices qué pasa?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# CGI MÍNIMO. Versión utf8
# Joaquín Ferrero. 2012.
# Este cgi sirve para comprobar si el servidor funciona con Perl+CGI, en modo utf8
#
use utf8;
use CGI       qw(:standard      );
use CGI::Carp qw(fatalsToBrowser);
 
binmode STDOUT, ":utf8";
 
print
    header(-charset=>"utf-8"),
    start_html('CGI MÍNIMO'),
    h1('CGI MÍNIMO'),
    hr,
    p('Si ves este texto es que sí está funcionando bien.'),
    hr;
 
# Aquí sacamos la lista de los parámetros
# en caso de que le haya sido pasado alguno
my @parametros = param();
foreach my $par ( @parametros ) {
        print p($par);
        print blockquote(param( $par ));
}
 
print end_html;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En caso de que suceda algún error, saldrá en la pantalla del navegador, gracias al módulo CGI::Carp.

Importante: este código debe escribirse en un editor con codificación utf8.

por **seafree** » 2012-09-04 09:27 @435

Hola, explorer, gracias.

Generé el script con el código que me enviaste y lo veo correctamente pero al insertarlo en mi programa no obtengo el resultado esperado.

Mi código es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use utf8;
use CGI       qw(:standard      );
use CGI::Carp qw(fatalsToBrowser);
use DBI;
 
binmode STDOUT, ":utf8";
 
print
    header( -charset => "utf-8" ),
    start_html('CGI MÍNIMO')
    ;
 
...;
 
print "<BODY BGCOLOR='#FFFFFF' TOPMARGIN='0' LEFTMARGIN='0'>";
$dbh = DBI->connect( "DBI:Pg:....");
$sql = " ... ";
$sth = $dbh->prepare($sql);
$sth->execute();
 
$registro = $sth->rows;
 
if ($registros > 0) {
    print " < FORM NAME = 'forma' METHOD = 'post' ACTION = '///*.cgi' > ";
    print " < table width = '100%' cellspacing = '0' cellpadding = '0' border = '1' > ";
 
    while (my $ref_eventos = $sth->fetchrow_hashref()) { ###LECTURA registros de $sql
        ...;
        ...;
        $causa = $ref_eventos->{'causa'}; ##descripción con caracteres especiales
        print " < td width = '20%' align = 'center' > <font face='arial' size='2'>$causa < /font></ td > ";
     } ###->while
 
     print  " < /table>";
}
else {
    ...;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Cuál es mi error? Gracias.

por **explorer** » 2012-09-04 10:32 @481

El problema está en la línea 31, que no sabemos en qué están codificados los datos que lees de la base de datos.

Foro - Perl en Español

perl encoding

perl encoding

Publicidad

Re: perl encoding

Re: perl encoding

Re: perl encoding

Re: perl encoding

Re: perl encoding

Re: perl encoding

Re: perl encoding

Re: perl encoding

Re: perl encoding

¿Quién está conectado?