Perl практика



              

Передача параметров через CGI.


Используется модуль CGI.pm. Программа, которая запрос: serv.edu.kiae.ru/~gds/cgi-bin/test.cgi?flavor=mint:

#!/usr/bin/perl5 -w use CGI qw(param); print &lt&ltEND_of_Multiline_Text; Content-type: text/html

<HTML> <HEAD> <Hello World!<TITLE> </HEAD> <BODY> <H1&gtGreetings, Terrians!<H1&gt End_of_Multiline_Text

my $favorilte = param("flover"); print "<P&gtYour favorite flavor is $favorite."; print <<All_Done; </BODY> </HTML&gt All_Done




Содержание  Назад  Вперед