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

21.02.2010. perl, Программирование

0

Очень простой урок о том, как написать элементарный 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

20.02.2010. Linux

0

Установка и настройка Apache в Kubuntu не занимает много времени.

Устанавливаем Apache2

sudo -s

apt-get install apache2

Сервер установлен и готов к работе;)

Ставим MySQL

apt-get install mysql-server mysql-client

В процессе установки попросят выбрать  пароль для базы данных. Установите его и не потеряйте.

Устанавливаем и настраиваем perl

Если, вдруг, у вас не стоит perl (чего быть не должно, устанавливается обычно с системой), то ставим его:

apt-get install perl

Теперь настраиваем.

Первым делом добавляем в файл /etc/apache2/httpd.conf (nano /etc/apache2/httpd.conf) эту строчку:

AddHandler cgi-script .sh  .pl .cgi

Затем переходим в папку cd /etc/apache2/sites-available

cd /etc/apache2/sites-available

Там должен быть файл с именем default. Открываем его.

nano default

Находим строчку ScriptAlias /cgi-bin/ путь и меняем на путь к папке (только запомните путь, который был до этого), в которой мы хотим хранить perl-скрипты. Например, на /var/www

Теперь, ищем все строчки с путем, запомненным нами и меняем в них путь на новый.

Теперь ваши perl-скрипты доступны по адресу localhost/cgi-bin/

Если мы хотим хранить их не только в этой папке, то надо в блок <VirtualHosts *:80> </VirtualHosts> добавить вот такие строчки:

<Directory "путь">
Options Indexes FollowSymLinks MultiViews
AllowOverride None
Options ExecCGI
Order allow,deny
allow from all
</Directory>

Устанавливаем php

apt-get install php5 libapache2-mod-php5 php5-common php5-cli php5-cgi php5-mysql

Устанавливаем phpMyAdmin

apt-get install phpmyadmin

Для доступа к phpmyadmin вводим в браузере localhost/phpmyadmin
После всего этого перезагружаем apache2 (/etc/init.d/apache2 restart) и радуемся жизи.

php5-common php5 libapache2-mod-php5 php5-cli php5-cgi php5-mysql
Страница 1 из 11

Rambler's Top100 Блогун - монетизируем блоги