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

Содержание

• 1 Примеры
• 2 См. Также
• 3 Ссылки
• 4 Внешние ссылки

Примеры

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

#! / usr / bin / env perl use strict; использовать предупреждения; использовать CGI; мой $ cgi = CGI->новый; print $ cgi->header ('текст / html'); print << "EndOfHTML"; 
CGI.pm - CGI.pm
 
Имя: 
Возраст: 
EndOfHTML if (my $ name = $ cgi->param ('name')) {print "Ваше имя $ name. 
"; } if (my $ age = $ cgi->param ('age')) {print "Вам $ age лет."; } print '';

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

#! perl use strict; использовать предупреждения; используйте CGI qw /: standard /; заголовок печати ('text / html'); #... Вывод HTML такой же, как в примере выше if (my $ name = param ('name')) {print "Ваше имя $ name. 
"; } if (my $ age = param ('age')) {print «Вам $ age лет.»; } print '';

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

См. Также

• mod_perl

Ссылки

Внешние ссылки

• CGI.pm - в CPAN

Wikibook Perl Programming имеет страницу по теме: CGI

.