
Очень простой урок о том, как написать элементарный perl-web-скрипт, генерирующий случайные числа.
CGI-скрипт должен начинаться с указания программы, которая его обрабатывает. Поэтому в первой строчке как раз и напишем это:
1 |
#!/usr/bin/perl |
Теперь сообщим, что мы хотим выводить html-документ и создадим экземпляр класса для получения параметров, переданных через браузер
1 2 3 4 5 |
use CGI; use CGI::Carp qw/fatalsToBrowser/; $cgi=new CGI; print "Content-type:text\/html\n\n"; |
Первые три строчки — создание экземпляра класса, а последняя сообщает, что мы будем выводить html-документ
Получать данные для скрипта будем с помощью метода GET. Т.е. все переменные будут передаваться нам через строку браузера после адреса скрипта. Передача осуществляется примерно так: site.ru/script.cgi?a=10&b=12
Теперь, чтобы получить значения a и b надо создать 2 переменные и «вытащить» оттуда эти данные:
1 2 |
$x=$cgi->param('a'); $y=$cgi->param('b'); |
Вот здесь мы записали в x и y переданные скрипту a и b.
Что-бы не передавать параметры вручную создадим форму:
1 2 3 |
print "<form action=\"index.cgi\" method=\"get\"><br />Vvedite a: <input type=\"text\" value=$x name=\"a\"/> Vvedite b:<input type=\"text\" value=$y name=\"b\"/> <input type=\"submit\"/><br /></form>"; |
И теперь выведем случайное число от a до b:
1 |
print int(rand($x)+$y); |
Вот и все. Простой скрипт, генерирующий случайные числа сделан. Загружаем его на сервер и любуемся результатом.
Полные код:
1 2 3 4 5 6 7 8 9 10 11 12 |
#!/usr/bin/perl use CGI; use CGI::Carp qw/fatalsToBrowser/; $cgi=new CGI; print "Content-type:text\/html\n\n"; $x=$cgi->param('a'); $y=$cgi->param('b'); print "<form action=\"index.cgi\" method=\"get\"><br />Vvedite a: <input type=\"text\" value=$x name=\"a\"/> Vvedite b:<input type=\"text\" value=$y name=\"b\"/> <input type=\"submit\"/><br /></form>"; print int(rand($x)+$y); |
.