Foro - Perl en Español

Publicado: **2012-12-20 09:10 @424**

Hola,

El asunto es un poco extenso pero no sabia como llamar al problema.

¡Os explico!

Tengo un script en Perl que ejecuta mediante el comando qx() un programa en Java.
Este programa en stdout la solución.

Bien, pues este script ejecutado por terminal, funciona correctamente (muestra los datos bien).
Ejecutado como www-data en el terminal también funciona bien, pero desde el browser, las letras con tilde las transforma a '??'.

Os pongo parte del código, para que veáis lo simple que es la idea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use CGI;
use warnings;
use strict;
use locale;
use POSIX qw(locale_h strftime);
use locale(LC_CTYPE, "utf8");
 
use open      qw(:std :utf8);    # flujos no declarados, en UTF-8
my $form = new CGI;
 
my $query  = $form->param('query');
my $lang  = $form->param('lang');
 
 
my $instruction="";
$instruction.="java ";
$instruction.="analizador $query $lang";
 
my @solucion=qx ($instruction);
my $j=0;
 
print "Content-type: text/HTML;charset=UTF-8\n\n";
while ($j<@solucion) {
        my $linea=$solucion[$j];
        print "$linea\n";
        $j++;
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Lo raro, es que desde el terminal con mi usuario ejecuto el perl y perfecto en las tildes, 'ñ' y lo que quieras. Desde el terminal con el usuario www-data, idéntico, pero desde la aplicación web no, ¡y ya no sé por qué! En un momento pensaba que era por la variable locale, pero al visualizarlo bien desde los dos usuarios, ya me ha matado.

Si tenéis alguna idea, ¡mil gracias!

Publicado: **2012-12-20 12:40 @569**

Creo que el problema está en que el servidor web tendrá definido un locale POSIX=C en el momento del arranque (míralo en el /etc/init.d/). Pero esto no debería importar, porque desde dentro de nuestro programa podemos cambiar de locale. Lo malo es que creo que no estás haciendo ese cambio...

Reescrito el comienzo...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
#use locale;                   # no es necesario porque vamos a usar setlocale() a continuación
use POSIX qw(locale_h strftime);
setlocale(LC_CTYPE, "utf-8");  # atención: es setlocale(), NO use locale()
use open  qw(:std :utf8);      # flujos no declarados, en UTF-8
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y luego, en la línea 24, es mejor que la escribas así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

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

Lo que sigue no está formateado como HTML, así que te aconsejo que uses las facilidades de CGI.pm para hacerlo así.

Más información en perldoc -f locale y perldoc perllocale

Publicado: **2012-12-21 04:38 @234**

¡Hola, explorer!

¡Genial! ¡Funcionó! Era eso mismo, el posix=C

Gracias

Publicado: **2012-12-21 06:10 @299**

¿No se te habrá ocurrido quitarlo, verdad?

Foro - Perl en Español

Error codificación llamando a un java con user www-data

Error codificación llamando a un java con user www-data

Re: Error codificación llamando a un java con user www-data

Re: Error codificación llamando a un java con user www-data

Re: Error codificación llamando a un java con user www-data