CGI.pm


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

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

#! / usr / bin / env perlиспользуйте  строгий ; использовать  предупреждения ;использовать  CGI ;мой  $ cgi  =  CGI -> новый ;напечатать  $ cgi -> header ( 'text / html' );print  <<  "EndOfHTML" ; DOCTYPE  HTML >      Простой CGI Страница  < мета HTTP - эквив = "Content-Type" содержание = "текст / html; кодировка = ISO-8859-1" />  <тело> Простой CGI Page  < форма метод = "пост" ENCTYPE = "многочастному / форм-данных" > имя: < входной тип = "текст" название = "имя" /> < br / > Возраст: < input type = "text" name = "age" /> 

< input type = "submit" name = "Отправить!" value = "Отправить!" /> < hr /> EndOfHTML if ( my $ name = $ cgi -> param ( 'name' ) ) { print "Ваше имя $ name.
"
; }if ( my $ age = $ cgi -> param ( 'age' ) ) { print "Вам $ age лет." ; }печать '