generate form in Perl script

Генерация 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;

Думаю, зритель меня простит за осутствие комментариев в коде программки. Надеюсь, что у Вас не возникнет вопросов о том, как работает этот скриптик.
В любом случае, буду рад ответить на любые возникающие у Вас вопросы.

Константин Михайлов

mkostya@ruxy.org.ru
1 декабря 1999г.

Примечание редакции.
Оригинал документа представлен по адресу http://video.spb.osi.ru/~mkostya/factory/perl/form_from_perl.htm. Узнать больше о программировании Вы сможете на ==KIM== Programming Page, в том числе и в разделе этой страницы, посвященном языку Perl.

купить электрический камин в спб. . шейный остеохондроз лечение

Этот e-mail адрес защищен от спам-ботов, для его просмотра у Вас должен быть включен Javascript