CGI.pm - CGI.pm

CGI.pm
Оригинальный автор (ы)Линкольн Штайн
Разработчики)Ли Джонсон
Стабильный выпуск
4.21 / 2015-06-22
ПлатформаPerl
ТипМодуль Perl за CGI
Интернет сайтметакпан.org/релиз/ CGI

CGI.pm большой и когда-то широко используемый Модуль Perl за программирование Общий интерфейс шлюза (CGI) сеть приложений, обеспечивая последовательную API для приема и обработки пользовательского ввода. Также есть функции для производства HTML или же XHTML вывода, но сейчас они не поддерживаются, и их следует избегать.[1] CGI.pm был основным модулем Perl, но был удален с версии Perl v5.22.[2] Модуль был написан Линкольн Штайн и теперь поддерживается Ли Джонсоном.

Примеры

Вот простая страница CGI, написанная на Perl с использованием CGI.pm (в объектно-ориентированный стиль):

#! / usr / bin / env perlиспользовать строгий;использовать предупреждения;использовать CGI;мой $ cgi = CGI->новый;Распечатать $ cgi->заголовок('текст / HTML');Распечатать << "EndOfHTML";<!DOCTYPE html><html>    <head>        <title>А Простой CGI Страница</title>        <мета http-эквивалент="Тип содержимого" содержание="текст / html; charset = iso-8859-1" />    </head>    <body>        <h1>А Простой CGI Страница</h1>        <форма метод="почтовый" enctype="multipart / form-data">            Имя: <Вход тип="текст" имя="имя"  /> 
>            Возраст: <Вход тип="текст" имя="возраст"  /><p>            <Вход тип="Разместить" имя="Представлять на рассмотрение!" ценить="Представлять на рассмотрение!" />        </form>        <час />EndOfHTMLесли ( мой $ name = $ cgi->парам('имя') ) {    Распечатать "Ваше имя $ name. 
";}если ( мой $ возраст = $ cgi->парам('возраст') ) {    Распечатать "Тебе около $ возраста".;}Распечатать '';

При этом будет напечатана очень простая веб-форма с запросом вашего имени и возраста, а после отправки форма снова отобразится с указанием имени и возраста под ней. В этом примере используются объектно-ориентированные возможности CGI.pm; это также можно сделать, вызывая функции напрямую, без $ cgi->, однако необходимые функции должны быть импортированы в пространство имен скрипта, которому требуется доступ к этим функциям:

#! perlиспользовать строгий;использовать предупреждения;использовать CGI qw /: стандартный /;Распечатать заголовок('текст / HTML');# ... Вывод HTML такой же, как в примере вышеесли ( мой $ name = парам('имя') ) {    Распечатать "Ваше имя $ name. 
";}если ( мой $ возраст = парам('возраст') ) {    Распечатать "Тебе около $ возраста".;}Распечатать '';

Примечание: во многих примерах $ q, сокращение от query, используется для хранения CGI-объекта.

Смотрите также

Рекомендации

  1. ^ https://metacpan.org/pod/distribution/CGI/lib/CGI.pod#HTML-Generation-functions-should-no-longer-be-used
  2. ^ https://metacpan.org/pod/distribution/CGI/lib/CGI.pod#CGI.pm-HAS-BEEN-REMOVED-FROM-THE-PERL-CORE

внешняя ссылка