Генерация HTML Форм из Perl скриптов |
|
Язык Perl предоставляет широчайшие возможности по
генерации HTML страниц. Для того чтобы использовать эти возможности, необходимо подключить
модуль CGI, который входит в состав дистрибутивного набора начиная с четвертых версий языка.
Приведенная ниже программка генерирует простенькую форму
и может быть полезна всем программистам, занимающимся разработкой Web интерфейсов
и тем, кто только начинает изучать язык Perl.
Обработка введенной в форму информации представляет из себя отдельную задачу.
#!/usr/bin/perl
use CGI qw(:standard);
print header, start_html("My Form");
print start_form( -ACTION => "http://video.spb.osi.ru/cgi/form" );
print textfield( -NAME => "Name", -VALUE =>"" );
print textfield( -NAME => "Telephone", -VALUE =>"812");
print checkbox( -NAME => "NO1", -CHECKED=>"1");
print checkbox( -NAME => "NO2", -CHECKED=>"0");
print popup_menu( -NAME => "Selected", -VALUE => [ 'Friend','Colegue','Other' ]);
print hidden( -NAME=> "Secret", -VALUE=> "$secret");
print p(submit("Send"), reset("Clean"));
print end_form();
print end_html;
|
Думаю, зритель меня простит за осутствие комментариев в коде программки.
Надеюсь, что у Вас не возникнет вопросов о том, как работает этот скриптик.
В любом случае, буду рад ответить на любые возникающие у Вас вопросы.
Примечание редакции.
Оригинал документа представлен по адресу
http://video.spb.osi.ru/~mkostya/factory/perl/form_from_perl.htm.
Узнать больше о программировании Вы сможете на
==KIM== Programming Page, в том числе и в разделе этой страницы,
посвященном языку Perl.