Foro - Perl en Español

por **reLlene** » 2012-10-03 14:38 @651

Tengo problemas como con este sencillo script.

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

[[[Wed Oct 03 16:32:12 2012] [error] [client 127.0.0.1] (8)Exec format error: exec of '/usr/lib/cgi-bin/hello.pl' failed
[Wed Oct 03 16:32:12 2012] [error] [client 127.0.0.1] Premature end of script headers: hello.pl
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 #!/usr/bin/perl -w
 
 
use CGI qw/:all/;
use CGI::Carp qw/fatalsToBrowser/;
use HTML::Template;
 
    # open the html template
    my $template = HTML::Template->new(filename => '/home/reLlene/tmpls/documento.tmpl');
 
    # fill in some parameters
    $template->param(HOME => $ENV{HOME});
    $template->param(PATH => $ENV{PATH});
 
        print "Content-type: text/html\n\n";
        $template->output;
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

No veo qué hago mal porque desde otros scripts voy a buscar otros o incluso el MISMO .tmpl para mostrar en el navegador y me funciona.

Permisos del script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

-rwxr-xr-x 1 root    root      458 oct  3 16:30 hello.pl
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintaxis:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

bash# perl -c hello.pl
hello.pl syntax OK
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡¡¡ AHH... y lo corro en la terminal y se imprime bien el html !!!
WTF ??

#!/usr/bin/perl
use warnings;
 
use CGI qw/:all/;
use CGI::Carp qw/fatalsToBrowser/;
use HTML::Template;
 
# open the html template
my $template = HTML::Template->new(filename => '/home/reLlene/tmpls/documento.tmpl');
 
# fill in some parameters
$template->param(HOME => $ENV{HOME});
$template->param(PATH => $ENV{PATH});
 
print header();
print $template->output;
 
__END__
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **reLlene** » 2012-10-04 12:26 @559

Lo que no consigo es la impresión de la variable $ENV{HOME} desde el navegador pero sí desde el terminal. El template es correcto, incluso:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

 
<head><title>Test Template</title></head>
 
        <body>
                My Home Directory is <TMPL_VAR NAME=HOME>
    <p>
                My Path is set to <TMPL_VAR NAME=PATH>
    </body>
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-10-04 13:37 @609

Claro, porque los $ENV{HOME} son distintos, en cada caso.

Cuando lo ejecutas desde la terminal, lo estás haciendo como un usuario del sistema, y éste inicializó tu entorno, incluyendo la variable $HOME (que en Perl se lee con %ENV).

Pero... cuando lo ejecutas con el navegador, quien ejecuta el programa es (el usuario que ejecuta) el servidor web, que podría tener un $HOME distinto al tuyo, o incluso no tener ninguno.

Moraleja: cuando hagas CGI ten siempre presente que quien va a ejecutar tu código es un proceso servidor (el Apache, por ejemplo), no tú. Y por lo tanto, deberás tomar las medidas apropiadas para tener acceso al resto del sistema (sistema de ficheros, variables de entorno, etc.).

Lo que sí puedes hacer es imprimir todo el contenido de %ENV y así verás el entorno con el que cuentas, que será muy distinto del que tienes como usuario, que puedes sacar con el comando env o el set del Bash.

por **reLlene** » 2012-10-04 15:35 @691

¡Ahh! Yo creía que se trataban de las MISMAS variables de entorno y por eso no comprendía cómo no mostraba la $HOME.

Gracias amigo. ¡¡Más que solucionado!!

Foro - Perl en Español

Premature end en script sencillo

Premature end en script sencillo

Publicidad

Re: Premature end en script sencillo

Re: Premature end en script sencillo

Re: Premature end en script sencillo

Re: Premature end en script sencillo

Re: Premature end en script sencillo

Re: Premature end en script sencillo

¿Quién está conectado?