Всякое разное

Что-то полезное, что-то интересное, что-то нафиг не нужное

Пишем рандомайзер (генератор случайных чисел) на perl`е

Очень простой урок о том, как написать элементарный perl-web-скрипт, генерирующий случайные числа.
CGI-скрипт должен начинаться с указания программы, которая его обрабатывает. Поэтому в первой строчке как раз и напишем это:

#!/usr/bin/perl

Теперь сообщим, что мы хотим выводить html-документ и создадим экземпляр класса для получения параметров, переданных через браузер

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 переменные и "вытащить" оттуда эти данные:

$x=$cgi->param('a');
$y=$cgi->param('b');

Вот здесь мы записали в x и y переданные скрипту a и 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>";

И теперь выведем случайное число от a до b:

print int(rand($x)+$y);

Вот и все. Простой скрипт, генерирующий случайные числа сделан. Загружаем его на сервер и любуемся результатом.
Полные код:

#!/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);

Похожие записи:

• Установка web-сервера Apache в Kubuntu