Foro - Perl en Español

por **barbanegra_2005** » 2006-02-21 15:55 @705

Hola amigos, lo primero felicitarles por la página, me ha gustado ver que Perl está guerreando en el web y sobre todo por el buen diseño. Lo de guerreando lo digo por eso de que como el php actualmente es lo que se ve en la mayoría de las páginas programadas (o eso o ASP, es lo que yo veo principalmente, no se si estaré en lo cierto). Veréis, estoy empezando a aprender a programar (comencé un curso de VB y C, pero por motivos de trabajo lo tuve que dejar), y bueno de los lenguajes que he visto, todos muy útiles, el más divertido y "de andar por casa" es el Perl. Me compré dos libros de O'Reilly el "CGI Programming on the WWW" y el "Learning Programing on Win32", estoy mirando un poco de los dos (estoy por los primeros capítulos), y he llegado a un ejemplo del tema 2 del libro del cgi en el que no entiendo una parte, a ver si me pueden ayudar es la que esta delimitada por asteriscos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/local/bin/perl
$request_method=$ENV{'REQUEST_METHOD'};
if($request_methodeq"GET"){
$form_info=$ENV{'QUERY_STRING'};
}else{
$size_of_form_information=$ENV{'CONTENT_LENGTH'};
**********read(STDIN,$form_info,$size_of_form_information);**********
}
($field_name,$command)=split(/=/,$form_info);
print"Content-type: text/plain","\n\n";
if($commandeq"fortune"){
print`/usr/local/bin/fortune`;
}elsif($commandeq"finger"){
print`/usr/ucb/finger`;
}else{
print`/usr/local/bin/date`;
}
exit(0);Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El resto del ejemplo lo entiendo, muchas gracias amigos por adelantado

Resulta que si la petición no es del tipo GET, será POST, con lo que lo que nos manda el usuario viene por la entrada estándar de nuestro programa. Para saber cuánto, leemos a continuación el valor de la variable CONTENT_LENGTH, que nos lo devuelve en bytes.
Luego hacemos un read, leyendo desde la entrada estándar (STDIN), tantos bytes como nos han dicho ($size_of_form_information), y lo guardamos en la variable $form_info.

por **kidd** » 2006-02-21 18:26 @810

Hola:

Podrías checar el siguiente tutorial:
http://perlenespanol.com/archives-tut/000032.html

Habla justamente acerca del tema.

SALUDOS

por **barbanegra_2005** » 2006-02-22 07:44 @364

Bien, lo entiendo mejor ahora.

read (STDIN, $form_info, $size_of_form_information);

Si el método es POST (depende del formulario, no del script segun el ejemplo del libro, por eso da los dos modelos pa que se pueda usar indistintamente un formulario con POST o GET), si el método es POST los datos del usuario los manda como un flujo a través del STDIN, es decir lo puedo traducir como

lee (DESDE_STDIN, $laprimeravariable("querystring" o los datos del formulario),$lasegundavariable(tamaño que sacamos en $ENV{'CONTENT_LENGTH'))

Lo que no comprendía era que pintaba el STDIN seguido de 2 variables, es esto verdad? Lee desde la fuente STDIN la variable y saca de esa variable el tamaño, es así por la construcción de la función READ según la documentación del perl

read FILEHANDLE,SCALAR,LENGTH

Gracias por la ayuda amigos, si me he equivocado corrijanme. Los tutoriales me los estoy mirando ahora mismo =), a ver que dicen.

Foro - Perl en Español

Aprendiendo Perl, ayuda con un ejemplo

Aprendiendo Perl, ayuda con un ejemplo

Publicidad

Re: Aprendiendo Perl, ayuda con un ejemplo

Ok, muchas gracias chicos =)

¿Quién está conectado?