Este artículo se basa demasiado en referencias a fuentes primarias . ( Septiembre de 2011 ) ( Obtenga información sobre cómo y cuándo eliminar este mensaje de plantilla ) |
Autor (es) original (es) | Lincoln Stein |
---|---|
Desarrollador (es) | Lee Johnson |
Lanzamiento estable | 4.21 / 22-06-2015 |
Plataforma | Perl |
Tipo | Módulo Perl para CGI |
Sitio web | metacpan |
CGI.pm es un módulo Perl grande y que alguna vez se usó ampliamente para programar aplicaciones web Common Gateway Interface (CGI) , que proporciona una API consistente para recibir y procesar la entrada del usuario. También hay funciones para producir salida HTML o XHTML , pero ahora no se mantienen y deben evitarse. [1] CGI.pm era un módulo principal de Perl, pero se eliminó a partir de la versión 5.22 de Perl. [2] El módulo fue escrito por Lincoln Stein y ahora es mantenido por Lee Johnson.
Ejemplos [ editar ]
Aquí hay una página CGI simple, escrita en Perl usando CGI.pm (en estilo orientado a objetos ):
#! / usr / bin / env perluso estricto ; use advertencias ;utilizar CGI ;my $ cgi = CGI -> nuevo ;imprimir $ cgi -> encabezado ( 'texto / html' );print << "EndOfHTML" ; <! DOCTYPE html > <html> <head> <title> Una página CGI simple </title> < meta http - equiv = "Content-Type" content = "text / html; charset = iso-8859-1" /> </ head> <body> <h1> Una página CGI simple </h1> < form method = "post" enctype = "multipart / form-data"> Nombre: < entrada tipo = "texto" nombre = "nombre" /> <br /> Edad: < entrada de tipo = "texto" nombre = "edad" /> <p> < entrada de tipo = "submit" nombre = "! Enviar" value = "Enviar!" /> </form> < hr /> EndOfHTMLif ( mi $ nombre = $ cgi -> param ( 'nombre' ) ) { print "Tu nombre es $ nombre. <br />" ; }if ( my $ age = $ cgi -> param ( 'age' ) ) { print "Tienes $ age años." ; }imprimir '</body> </html>' ;
Esto imprimiría un formulario web muy simple, pidiendo su nombre y edad, y después de haber sido enviado, volviendo a mostrar el formulario con el nombre y la edad debajo. Esta muestra hace uso de las habilidades orientadas a objetos de CGI.pm; También se puede hacer llamando a funciones directamente, sin $ cgi-> , sin embargo, las funciones necesarias deben ser importadas al espacio de nombres del script que requiere acceso a esas funciones:
#! perluso estricto ; use advertencias ; use CGI qw /: estándar / ;imprimir encabezado ( 'texto / html' );# ... salida HTML igual que el ejemplo anteriorif ( my $ name = param ( 'name' ) ) { print "Tu nombre es $ name. <br />" ; }if ( my $ age = param ( 'age' ) ) { print "Tienes $ age años". ; }imprimir '</body> </html>' ;
Nota: en muchos ejemplos $ q , abreviatura de consulta, se usa para almacenar un objeto CGI.
Ver también [ editar ]
Referencias [ editar ]
Enlaces externos [ editar ]
La programación de Wikibook Perl tiene una página sobre el tema de: CGI |