Foro - Perl en Español

por **millen** » 2012-08-06 04:36 @233

No sé si tengo q escribir aquí.

A ver tengo un script de html como éste:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<html>
<head>
<title>colors</title>
</head>
<body>
<form action="colors.cgi" method="POST">
 
<h3>What are your favorite colors?</h3>
<input type="checkbox" name="red" value=1> Red<br>
<input type="checkbox" name="green" value=1> Green<br>
<input type="checkbox" name="blue" value=1> Blue<br>
<input type="checkbox" name="gold" value=1> Gold<br>
 
<input type="submit">
 
</form>
</body>
</html>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

... y un script de cgi:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
print "Content-type:text/html\n\n";
 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}
 
print "<html><head><title>Results</title></head>\n";
print "<body>\n";
print "<h2>Results</h2>\n";
 
@colors = ("red","green","blue","gold");
foreach $x (@colors) {
    if ($FORM{$x} == 1) {
        print "You picked $x.\n";
    }
}
 
print "</body></html>\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Me pasa que cuando ejecuto el html, elijo el color y le doy a enviar, me sale todo el script del cgi (entero), en vez de sólo el color. No entiendo por qué.

Muchas Gracias.

Para el primer caso, no hay problema: se instala o usa un servidor en la propia máquina, cargas el html en el navegador, y en action pones que el cgi está en el localhost.

Para el segundo caso, hay un problema: el navegador web no sabe ejecutar el cgi por sí mismo.

Lo que sí se puede hacer es ejecutar el cgi desde la línea de comandos. Como depende de la información que reside en el entorno, deberás modificarlo para que el cgi lo pueda procesar:

export CONTENT_LENGTH= (la longitud de lo que será pasado al programa a través de la entrada estándar)

Es mucho más cómodo, para todo esto, usar el módulo CGI, que permite pasar los argumentos en la propia línea de comandos, al estilo:

perl programa_cgi.pl red=1 green=1 gold=0 blue=0

Por estos foros encontrarás mucho código que usa el módulo CGI. Verás además que te ahorrará mucho código en tu cgi. Sería algo así:

Sintáxis: (programa_cgi.pl) [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use CGI       qw(:standard      );     # importamos todas las funciones estándares de HTML
use CGI::Carp qw(fatalsToBrowser);     # en caso de error, sacarlo al navegador web
 
print header;
print start_html('Results');
print h2('Results');
 
my @colors = qw( red green blue gold );
 
for my $color (@colors) {
    if (param($color) == 1) {
        print p("You picked $color."), "\n";
    }
}
print end_html;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora ya puedes ejecutarlo desde la línea de comandos:

perl programa_cgi.pl red=1 gold=0

por **millen** » 2012-08-06 07:30 @354

Lo he resuelto mediante servidor web, ya tenía instalado Apache...

El otro modo a la tarde lo intento.

Muchas Gracias.

Foro - Perl en Español

Sale el código del cgi

Sale el código del cgi

Publicidad

Re: Sale el código del cgi

Re: Sale el código del cgi

Re: Sale el código del cgi

Re: Sale el código del cgi

¿Quién está conectado?