Самый быстрый способ очистки - это присвоение пустого списка.

Реализация

my %hash = ();

Примечание

Часто спрашивают, как инициализировать указатель на хэш (hash ref). Указатель - это скалярная переменная и инициализируется она соответствующим образом. Например:

my $hash_ref;
my $hash_ref = 0; # zero

Добавление пары ключ/значение в хэш

В примерах, приведенных ниже, кавычки вокруг ключей могут быть опущены, если ключи - идентификаторы.

Хэш:

Решение

$hash{ ‘key’ } = ‘value’; # хэш

$hash{ $key } = $value; # хэш, с использованием переменной

Указатель на хэш:

Решение

$href->{ ‘key’ } = ‘value’; # указатель на хэш

$href->{ $key } = $value; # указатель на хэш, с использованием переменной

Добавление нескольких пар ключ/значение в хэш

Решение

Эти операции эквивалентны, просто второй более читаем.

%hash = ( ‘key1′, ‘value1′, ‘key2′, ‘value2′, ‘key3′, ‘value3′ );

%hash = (
key1 => ‘value1′,
key2 => ‘value2′,
key3 => ‘value3′,
);

Копирование хэшей

Решение

my %hash_copy = %hash; # копирование хэша

my $href_copy = $href; # копирование указателя на хэш

Удаление одной пары ключ/значение

Не смотря на то что удаление хэша и удаление указателя на хэш, это разные операция, обе они выполняются с помощью функции delete.

Решение

Хэш:

delete $hash{$key};

Указатель на хэш:

delete $hash_ref->{$key};

Перебор всех пар ключ/значение

Пример, приведенный ниже, печатает все пары ключ/значение.

Решение

Использование функции each с циклом while. Обратите внимание, что each переберет пары в случайном порядке, но порядок будет совпадать с перебором с помощью функций keys и values.

while ( my ($key, $value) = each(%hash) ) {
print “$key => $valuen”;
}

Для указатель на хэш небольшое отличие:

while ( my ($key, $value) = each(%$hash_ref) ) {
print “$key => $valuen”;
}

Решение

Использование функции keys с циклом for

for my $key ( keys %hash ) {
my $value = $hash{$key};
print “$key => $valuen”;
}

Пример

my $file = $ARGV[0] || “-”;

my %from = ();

open FILE, “< $file” or die “Can’t open $file : $!”;

while( ) {
if (/^From: (.*)/) { $from{$1}++ } # считаем повторение отправителя
}

close FILE;

for my $sender ( sort keys %from ) {
print “$sender: $from{$sender}n”;
}

Получение размера хэша

Решение

print “size of hash: ” . keys( %hash ) . “.n”;

Solution

my $i = 0;

$i += scalar keys %$hash_ref; # метод 1: явный скалярный контекст
$i += keys %$hash_ref; # метод 2: неявный скалярный контекст

Использование указателей на хэш

Решение

sub foo
{
my $hash_ref;

$hash_ref->{ ‘key1′ } = ‘value1′;
$hash_ref->{ ‘key2′ } = ‘value2′;
$hash_ref->{ ‘key3′ } = ‘value3′;

return $hash_ref;
}

my $hash_ref = foo();

print “ключи… “, sort keys %$hash_ref, “…n”;

Функция строящая хэш из хэшей и возвращающая указатель на хэш

Решение

sub foo
{
my ( $login, $p, $uid, $gid, $gecos, $dir, $s );

my %HoH = ();

my $file = ‘/etc/passwd’;
open( PASSWD, “< $file” ) or die “Can’t open $file : $!”;

while(
) {
( $login, $p, $uid, $gid, $gecos, $dir, $s ) = split( ‘:’ );

$HoH{ $login }{ ‘uid’ } = $uid;
$HoH{ $login }{ ‘gid’ } = $gid;
$HoH{ $login }{ ‘dir’ } = $dir;
}

close PASSWD;

return %HoH;
}

Доступ к хэшу из хэшей с помощью указателей. Вывод значений

Решение

my $rHoH = foo();

my( $uid, $gid, $dir );

for my $login ( keys %$rHoH ) {

$uid = $rHoH->{ $login }->{ ‘uid’ }; # метод 1. Более читабельный
$gid = ${ $rHoH->{ $login } }{ ‘gid’ }; # метод 2
$dir = ${ ${ $rHoH }{ $login } }{ ‘dir’ }; # метод 3. Менее читабельный

print “uid: $uid, gid: $gid, dir, $dir.n”;
}

Решение

my $rHoH = foo();

for my $k1 ( sort keys %$rHoH ) {
print “k1: $k1n”;
for my $k2 ( keys %{$rHoH->{ $k1 }} ) {
print “k2: $k2 $rHoH->{ $k1 }{ $k2 }n”;
}
}

Функция строящая хэш из хешей из хешей и возвращающая указатель на хэш

Решение

sub foo
{
my %HoHoH = ();

while( … ) {

if( /LOCATION:/ ) {

…

} elsif( /MODULE:/ ) {

$HoHoH{ $loc }{ $module_type }{ MODULE_NAME } = $module_name;

} elsif( $ARGS_ALLOWED ) {

$HoHoH{ $loc }{ $module_type }{ $arg_name } = $arg_value;

}

}

return %HoHoH;
}

Доступ к хэшу из хэшей из хэшей с помощью указателей. Вывод значений.

Решение

my $rHoH = foo();

for my $k1 ( sort keys %$rHoHoH ) {
print “$k1n”;

for my $k2 ( sort keys %{$rHoHoH->{ $k1 }} ) {
print “t$k2n”;

for my $k3 ( sort keys %{$rHoHoH->{ $k1 }->{ $k2 }} ) {
print “tt$k3 => $rHoHoH->{ $k1 }->{ $k2 }->{ $k3 }n”;
}
}
}

Вывод ключей и значений из хэша, полученного с помощью указателя

Решение

while( my ($k, $v) = each %$hash_ref ) {
print “ключ: $k, значение: $v.n”;
}

Определение существования значения в хэше

Решение

print “Значение СУЩЕСТВУЕТ, но может быть не определено.n”
if exists $hash{ $key };

print “Значение ОПРЕДЕЛЕНО, но может быть false.n”
if defined $hash{ $key };

print “Значение TRUEn”
if $hash{ $key };

Пример

Допустим, мы выполнили SQL запрос, который может вернуть записи, содержащие значение NULL. Перед тем как использовать результат запроса нам необходимо проверить, ОПРЕДЕЛЕНЫ ли полученные значения. Обратите внимание, функция sql_fetch_hashref() соединяется с сервером баз данных, подготавливает запрос, выполняет его и получает указатель на хэш с помощью DBI функции fetchrow_hashref().

my $answers = ‘a,b,c,d,e’;

my $sql = “select max_time, $answers from questions ” .
‘where question_number=?’;
my $hash_ref = sql_fetch_hashref( $sql, $q );

my @answers = split ‘,’, $answers;

my $max_time = $hash_ref->{max_time} || ‘60′;

my $hash_ref_ans;
for my $letter ( @answers ) {
$hash_ref_ans->{ $letter } = $hash_ref->{ $letter }
if defined $hash_ref->{ $letter };
}
Источник: www.internet-technologies.ru

IP-адрес представляет собой уникальный 32-х битный идентификатор компьютеров, состоящий из четырех десятичных чисел, разделенных точками, например, 127.0.0.2. Взаимодействие или обращение к определенному компьютеру в Интернете осуществляется по его IP-адресу. В идеале каждый компьютер, с которого пользователь запрашивает страницы сайта, имеет постоянный уникальный IP-адрес, который, в свою очередь, передается серверу при запросах. На практике это не всегда так. Иногда нельзя отличить разных пользователей, работающих через один прокси-сервер по IP-адресам, т.к. в HTTP заголовках передается IP-адрес прокси-сервера, а не конкретного пользователя.

Отслеживание IP-адресов посетителей страницы или сайта позволяет определять новых и старых пользователей, т.е. повторные и новые визиты. В свою очередь эта информация может быть использована для решения различных практических задач, таких как, например, создание счетчиков посещения сайта, ограничение повторного участия в голосовании и т.п. Таким образом, определение IP-адреса является задачей, решение которой открывает массу полезных возможностей для вебмастера.
Переменные окружения CGI и доступ к ним в Perl

При запросе пользователем веб-страницы с сервера браузер посылает ему запрос по протоколу HTTP. Запрос браузера в соответствии с протоколом всегда содержит заголовок. В заголовке содержится имя запрашиваемого файла, путь к нему, версия протокола HTTP и, что наиболее интересно для нас, информация о пользователе, включая IP-адрес. В сценарии, написанном на языке Perl, эта информация доступна через ассоциативный массив (хеш) %ENV. Некоторые переменные окружения, используемые для идентификации пользователя, и их значения представлены в таблице 1.

Таблица 1 - Имена и значения некоторых переменных окружения, используемых для идентификации пользователя
Имя переменной окружения Значение переменной
HTTP_COOKIE Записанные в браузере cookie для данного URL
HTTP_X_FORWARDED_FOR IP-адрес клиента при подключении через прокси
REMOTE_ADDR Удаленный IP-адрес клиента
REMOTE_HOST Имя удаленного узла, осуществляющего запрос

Для того, чтобы получить доступ к значению переменной окружения с помощью Perl необходимо просто использовать в качестве ключа в хеше %ENV имя этой переменной. Например, удаленный IP-адрес клиента можно получить, используя в хеше имя REMOTE_ADDR и ,соответственно, запись $ENV{ REMOTE_ADDR }.

Значения всех переменных окружения, доступных через хеш %ENV, можно получить, воспользовавшись простым скриптом:

#!/usr/local/bin/perl
## если perl в другом каталоге - #!/usr/bin/perl

print “Content-type: text/html\n\n”;

## перебираем все ключи хеша и для каждого
## выводим запись “ключ” - “значение”
foreach $key( keys( %ENV ) ) {
print “$key - $ENV{ $key }
\n”;
}

Запись IP-адреса в скалярную переменную

Последняя тонкость, которую нужно знать для определения IP-адреса на Perl, состоит в том, что при подключении пользователя через прокси-сервер, в переменной $ENV{ REMOTE_ADDR } будет храниться его IP-адрес, а не IP-адрес пользователя. Как указано в таблице 1, IP-адрес клиента при подключении через прокси находится в переменной $ENV{ HTTP_X_FORWARDED_FOR }. Теперь мы уже знаем все необходимое для определения IP-адреса на Perl. Все что осталось — это написать соответствующий код:

## если ключ HTTP_X_FORWARDED_FOR определен
if ( $ENV{ HTTP_X_FORWARDED_FOR } ) {

## в переменную $ip записывается IP-адрес
## клиента, подключенного через прокси
$ip = $ENV{ HTTP_X_FORWARDED_FOR};
} else {

## в противном случае запишем в $ip
## удаленный IP-адрес клиента
$ip = $ENV{ REMOTE_ADDR };
}

Согласно этому программному коду в переменную $ip записывается IP-адрес клиента при подключении через прокси или удаленный IP-адрес, если подключение идет не через прокси.
Пример использования IP-адреса для учета повторных визитов

Ниже приведен программный код cgi скрипта на языке Perl, осуществляющий проверку повторных визитов. В том случае, если осуществлен первый визит будет выдано приветствие “Вы здесь впервые!”, а если визит повторный — “Вы здесь уже были!”. IP-адреса машин, с которых уже осуществлялись визиты, записываются в файл ip_base на сервере.

#!/usr/local/bin/perl

## записываем IP-адрес в переменную $ip
if ( $ENV{ HTTP_X_FORWARDED_FOR } ) {
$ip = $ENV{ HTTP_X_FORWARDED_FOR };
} else {
$ip = $ENV{ REMOTE_ADDR };
}

$path_to_file = “ip_base”;
$comment = “Вы здесь в первый раз!”

## открываем файл ip_base и ищем в нем
## IP-адрес из переменной $ip
open ( IP_BASE, “$path_to_file” );
while ( ) {
if ( /$ip/ ) {
$comment = “Вы здесь уже были!”;
}
}
close ( IP_BASE );

## записываем в файл ip_base новый IP-адрес
## если пользователь здесь впервые
if ( $comment eq “Вы здесь в первый раз!” ) {
open ( ADD_IP, “>>$file” );
print ADD_IP “$ip\n”;
close ( ADD_IP );
}

## Выводим html файл с комментарием
print “Content-type: text/html\n\n”;
print ”

$comment

“;
Источнитк: bobrdobr.ru

Описание:
Эта книга научит вас основам языка программирования Perl. Вы узнаете достаточно для того, чтобы самому сделать что-нибудь полезное. Автор ведет повествование в легком и доступном стиле, опуская в тоже время редко встречающиеся нюансы программирования. Каждая новая методика продемонстрирована на множестве работающих примеров - от создания простейшей программы на Perl и до разработки сложных CGI - приложений. Книга будет интересна широкому кругу читателей.

Оглавление:
ЧАСТЬ I. ОСНОВЫ PERL
1 -й час. Начало работы с Perl
2-й час. Строительные блоки Perl: числа и строки
3-й час. Управление процессом выполнения программы
4-й час. Укладка строительных блоков: списки и массивы
5-й час. Работа с файлами
6-й час. Поиск по шаблону
7-й час. Хэши
8-й час. Функции
ЧАСТЬ II. УГЛУБЛЯЕМСЯ В PERL
9-й час. Дополнительные функции и операторы
10-й час. Файлы и каталоги
11-й час. Взаимодействие с операционной системой
12-й час. Работа с командной строкой Perl
13-й час. Структуры и ссылки
14-й час. Использование модулей
15-й час. Обработка данных в Perl
16-й час. Сообщество Perl
ЧАСТЬ III. CGI-ПРОГРАММИРОВАНИЕ НА PERL
17-й час. Введение в CGI
18-й час. Основы обработки форм
19-й час. Сложные формы
20-й час. Работа с HTML-кодом и CGI-программами
21-й час. Файлы cookie
22-й час. Отправка электронной почты из CGI-программ
23-й час. Push-технология и счетчики посещений Web-страниц
24-й час. Создание интерактивного Web-сервера
Приложение. Инсталляция модулей в Perl
Источник: progbook.net

Хотелось бы сегодня вкратце рассказать об обширной области Perl - о модулях, пакетах, классах и работе с ними. В следующих статьях я расскажу о наследовании и связывании переменных (это тоже имеет отношение к классам). Материал рассчитан на начинающих, но по битам разжевывать не буду. Для более подробного изучения следует обратиться к мануалам Perl. Очередной раз рекомендую книгу Perl Programming издательства O’Reilly (Программирование на Perl - переводное русскоязычное издание издательства Символ), среди авторов которой присутствует имя создателя Perl - Ларри Уолла.

Немного определений.

Что такое модуль? Это отдельный файл с частью программы.
Что такое пакет? Это пространство имен, обозначаемое командой package.
Что такое класс? Это то же самое, что и пакет.
Что такое объект? Это ссылка на любой встроенный тип данных, “освященная” командой bless.
Что такое связанная переменная? Это переменная (не ссылка), “связанная” с классом командой tie.

Соглашение именования.

На самом деле никаких ограничений нет, но, если придерживаться некоторых правил, то это уменьшит вероятность ошибки в коде.
Имена переменных и функций принято начинать с маленькой (строчной) буквы, а имена пакетов (классов) и модулей - с большой (прописной).
Вообще, имена модулей допустимо именовать как угодно, но если вы используете для загрузки команды use или require с “голыми” именами, то правильно будет именовать именно с большой буквы.
Расширение имен файлов (суффикс) принято такое: pl - для главного модуля, pm - для загружаемых модулей.

Модули.

Модуль не требует никакого особого оформления. Если модуль содержит одноименный пакет, то обычно его начинают с команды package.

Код: (perl)
# файл Example1.pm
package Example1;

Загружают модуль командами use и require. Команда use загружает модуль на этапе компиляции, когда Perl находит ее в процессе синтаксического разбора. Команда require загружает модуль на этапе исполнения, когда логика выполнения доходит до этой команды.
Форматы команд:

Код: (perl)
# Загружает модуль Module.pm
use Module;

# загружает модуль Dir1/Dir2/Module.pm
use Dir1::Dir2::Module;

# Загружает модуль и импортирует из него в текущее пространство имен имена name1, name2 и name3
# Требуется наличие в модуле одноименного пакета и метода import
use Module qw(name1 name2 name3);

# Загружает файл, заданный выражением
use EXPR;

Команда require имеет точно такой же формат.
Загружаемые файлы ищутся в директориях, указанных в массиве @INC. Имена успешно загруженных модулей помещаются в хеш %INC (имя используются в качестве ключа, а значение содержит полный путь к файлу).

Если есть неуверенность в том, что модуль существует, и нужно обработать ошибку, то можно применить блок eval.

Код: (perl)
eval { require Module; };
if ($@)
{
# error…
}

Также можно обратить внимание на команду do в форме со строковым выражением.

Пакеты и классы.

Как я уже написал выше, пакет - это пространство имен. В одном файле можно последовательно объявлять несколько пакетов, а также можно объявлять несколько раз один и тот же пакет. Команда package влияет на интерпретацию имен глобальных переменных, у которых не указано имя пакета (не квалифицированные имена), в том числе на переменные, объявленные с ключевым словом local, и действует до конца блока, в котором она определена, либо до следующего переназначения пакета. На ранее объявленные переменные с ключевым словом our команда не влияет.
Пакетом по умолчанию является main. Встроенные команды находятся в пакете Core.
Код: (perl)
package Class1;
$x = 1; # $Class1::x

package Class2;
$x = 2; # $Class2::x

package Class1;
print $x; # $Class1::x
print $Class2::x;

Объекты.

Объект создается методом “освящения” ссылки на встроенный тип данных именем класса с помощью команды bless. Функция ref() возвращает для такой ссылки имя класса.
Методы класса являются простыми функциями пакета и отличаются тем, что в качестве первого параметра в метод передается ссылка на объект или имя класса, если метод вызван как статический.
Статические члены класса определяются как глобальные переменные пакета.
Данные объекта полностью динамичны и зависят от используемого типа ссылки. Чаще всего применяют хеш - это позволяет использовать именованные данные.
В Perl для конструктора нет зарезервированного имени, как в C++. Любая функция может быть конструктором. Конструктора может вообще не быть - связать ссылку с классом можно в любом месте программы. Для деструктора в Perl принято имя DESTROY. Деструктор вызывают во время уничтожения объекта при сборке мусора. То есть, если нужно высвободить какие-либо ресурсы типа файлов или подключений к БД, то лучше сделать отдельный метод и принудительно его вызывать.

Код: (perl)
package Class1;

# самый примитивный конструктор
sub simple
{
return bless {};
}

# классический пример конструктора, поддерживающего наследование
sub new
{
my $invocant = shift; # первый параметр - ссылка на объект или имя класса
my $class = ref($invocant) || $invocant; # получение имени класса
my $self = { @_ }; # ссылка на анонимный хеш - это и будет нашим новым объектом, инициализация объекта

bless($self, $class); # освящаем ссылку в объект

return $self; # возвращаем объект
}

# пример деструктора
sub DESTROY
{
my $self = shift;

# тут можно выполнить какие-либо действия
}

# варианты использования конструктора для создания объекта
my $object1 = new Class1;
my $object2 = Class1->new(’param1′, 1, ‘param2′, ‘abc’, param3 => 333);
my $object3 = $object1->new();

В вышеприведенном примере конструктора применены некоторые ухищрения.

Код: (perl)
my $class = ref($invocant) || $invocant;

Получение имени класса.
Если дочерний класс использует в качестве конструктора метод родительского класса, то он автоматом получит в качестве первого параметра имя дочернего класса. Если же передать ссылку на объект, то будет создан новый объект того же типа.

Код: (perl)
my $self = { @_ };

Инициализация объекта.
Этого можно не делать или предварительно разобрать и проверить параметры. Просто это удобная форма инициализации.

Метод можно вызывать как статический (используя имя класса) или как метод объекта (используя ссылку на объект). Кроме того, есть две синтаксические формы записи.

Код: (perl)
# классическая синтаксическая форма - взята из C++
$object->method($arg1, $arg2, $arg3); # метод объекта
Class1->method($arg1, $arg2, $arg3); # метод класса

# вторая синтаксическая форма
method $object $arg1, $arg2, $arg3; # метод объекта
method Class1 $arg1, $arg2, $arg3; # метод класса

Заметьте, что во второй форме аргументы после объекта отделяются символами пробелов, а не запятой.
Классическая форма предпочтительнее, т.к. более однозначна с точки зрения синтаксиса. Совсем однозначно будет, если после имени класса поставить “::”.

Код: (perl)
method Class1:: $arg1, $arg2, $arg3;
Class1::->method($arg1, $arg2, $arg3);

Не стоит путать вызов метода с вызовом функции. Ведь в этом случае первым параметром не передается имя класса - параметров на один меньше.

Код: (perl)
Class1::method($arg1, $arg2, $arg3); # вызов функции

Напутствие.

Если этого маленького ликбеза вам недостаточно - посмотрите мануалы, идущие с Perl. В непонятных случаях задавайте вопросы на наш форум. Одна только просьба: конкретизируйте, пожалуйста, ваши вопросы.
Источник: club.shelek.ru

Perl - интерпретируемый язык, приспособленный для обработки произвольных текстовых файлов, извлечения из них необходимой информации и выдачи отчетов. Регулярные выражения Perl - мощнейший инструмент обработки текстовой информации. Perl также удобен для написания различных системных программ. Архив CPAN (cpan.org) содержит огромное количество модулей, реализующих практически все задачи, которые могут возникнуть в процессе работы. Хотя Perl приспособлен для сканирования текстовых файлов, он может обрабатывать так же двоичные данные и создавать .dbm файлы, подобные ассоциативным массивам. Perl позволяет использовать регулярные выражения, создавать объекты, вставлять в программу на С или C++ куски кода на Perl-е, а также позволяет осуществлять доступ к базам данных.
Как правильно создать Perl файл

При создании файла содержащего perl скрипт необходимо помнить:

1. Файл должен быть в формате UNIX
2. При записи файла на сервер должен быть включен текстовый режим
3. Расширение файла должно быть .cgi или .pl
4. Файлу должны быть определенны атрибуты 755
5. Файл должен начинаться с записи #!/usr/bin/perl
6. Если Perl скрипт производит вывод, прежде чем его начинать, нужно указать строку print “Content-type: text/html\n\n”

Путь к интерпретатору perl

!/usr/bin/perl
Путь к SENDMAIL

!/usr/bin/sendmail
Источник: freehost.com.ua

Начнем с того, что Perl - это язык для создания серверных скриптов (литературный эквивалент - сценарий), т.е. Perl-программа выполняется на Web-сервере, а не на компьютере пользователя, как, например JavaScript-сценарии или Java-апплеты.Поэтому для проверки ваших творений одного броузера будет мало, необходимо иметь доступ к Web-серверу. Самый простой способ разрешения данной проблемы - использовать для отладки Perl-программы сервер в Internet, на котором разрешено выполнение сценариев. Но в этом случае, первое - вы тратите свои кровно заработанные денежки, второе - наслаждаетесь “быстротой соединения с Internet” -). Я же хочу предложить вам несколько альтернативных методов отладки Perl-программ, которые, надеюсь, избавят вас от вышеописанных неудобств.

Итак,

* Метод1. Установить на своем компьютере Web-сервер и работать с ним как с обычным Internet-сервером.
* Метод2. Воспользоваться специальными программами-отладчиками.
* Метод3. Перенаправлять результаты работы интерпретатора в файл (стандартная возможность любой ОС).

У каждого из этих способов есть свои достоинства и недостатки. Но прежде чем применить один из вышеописанных методов, нужно настроить Perl-интерпретатор. Первым делом следует загрузить интерпретатор из Internet. Для OC Windows 9x следует скачать файл по следующему URL-адресу: http://www.activeware.com/ download/ ActivePerl/ Windows/ 5.6/ ActivePerl-5.6.0.613.msi . Если вы же используете другую ОС, загрузите страницу по адресу http://www.activeware.com/download , на ней выберите соответствующую ссылку, после чего “скачивайте” предложенный для этой цели файл.

После окончания процесса загрузки, запустите файл ActivePerl-5.6.0.613.msi или соответствующий файл для вашей ОС. Начнется процедура установки, в процессе которой вам предстоит ответить на ряд вопросов. В частности, о том, в какую директория нужно установить интерпретатор (устанавливать Perl желательно по следующему пути: диск:\usr).

Web-сервер (например, Apache) “узнает” о том, какую программу необходимо запускать для интерпретации скрипта из первой строчки программного кода скрипта. Например, строка #!/usr/bin/perl означает, что интерпретатор находится в директории /usr/bin и имеет имя perl.

Далее подробно рассматриваются все вышеперечисленные методы отладки Perl-программ.
Метод 1.

Главное достоинство данного метода - это то, что работа с вашим сервером полностью аналогична работе с “реальным” Internet-сервером. Основной же недостаток заключается в том, что вы видите только окончательный результат выполнения скрипта, и не можете проследить его выполнение по шагам. Максимальная эффективность достигается при использовании данного метода в комплексе с методами 2 и 3, которые описываются ниже.

В качестве Web-сервера рекомендую использовать Apache (это один из самых распространенных, надежных серверов, а главное, что он бесплатный). Для корректной работы Apache под Windows 95 необходимо установить Winsock 2 (для Windows 98 и Windows NT 4.0 эта процедура не потребуется). Загрузите с сайта фирмы Microsoft файл W95ws2setup.exe (http://www.microsoft.com/ windows/ downloads/ bin/ W95ws2setup.exe) и запустите его. Произойдет установка Winsock 2. Теперь скачиваем файл apache_1_3_12_win32.exe для установки Apache под Windows (http://www.apache.org/ dist/ binaries/ win32/ apache_1_3_12_win32.exe). После установки сервера, его необходимо сконфигурировать. Для этого в любом текстовом редакторе открываем файл httpd.conf , который находится в подпапке Conf папки, в которую был установлен Apache. Далее выполните следующие действия по конфигурации сервера:

1. Находим строку DocumentRoot и прописываем физический путь к корневому каталогу (сайту). У меня, например, этот путь следующий “C:/FrontPage Webs/Content/mudconnector/” (заметьте, что при указании пути используется Unix разделитель, даже в среде Windows). Корневой каталог является для сервера стартовой точкой при поиске документов. Обращение к корневому каталогу осуществляется по URL-адресу, в котором указано только имя сервера (имя папки или страницы не указывается). Обычно при употреблении термина каталог опускают слово “виртуальный”. Виртуальные каталоги представляют собой директории (папки), доступ к которым через Web осуществляется по логическому имени (псевдониму). Физически эти папки могут находиться в любом месте на вашем жестком диске или на другом компьютере. При создании виртуальному каталогу присваивается псевдоним, который ставится в соответствии физическому пути к нему.

2. Чуть ниже находится строка со словом Directory и прописываем то же путь (”C:/FrontPage Webs/Content/mudconnector/”).

3. Строка со словами Options All говорит о том, что включены все возможности сервера, в том числе и поддержка cgi.

4. В строке со словами ScriptAlias /cgi-bin/ указываем путь к cgi-bin каталогу (в моем случае этот путь “C:/Apache/cgi-bin/”).

5. Чуть ниже в строке со словом Directory указываем тот же путь “C:/Apache/cgi-bin”

6. Добавляем строку AddHandler cgi-script .cgi .pl. Тем самым даем понять серверу, что все фалы с расширением .cgi, .pl - являются cgi исполняемыми, т.е. программами.

Итак, настройка сервера завершена. Если вы сделали все правильно, то после запуска файла apache.exe на экран будет выведено сообщение типа “Apache/1.3.12 (Win32) running…”. Теперь загрузите броузер и введите URL-адрес http://localhost. В броузер будет загружена домашняя страница корневого Web-узла - index.html (на моем компьютере физический путь к этой странице C:/FrontPage Webs/Content/mudconnector/index.html)

Теперь проверим, как выполняется Perl-программа на нашем сервере. Для этого создадим простенькую программку, текст которой приведен ниже:

#!/usr/bin/perl
print “Content-type: text/html\n\n”;
print “Ура работает!\n”;

текстовом редакторе создайте новый файл и введите вышеприведенный код программы. Сохраните данный файл, например, под именем test.pl в папке cgi-bin, которая находится в папке, в которую вы установили Apache. После этого перейдите в броузер и введите URL-адрес:

http://localhost/cgi-bin/test.pl.

В броузер загрузится страница, содержащее долгожданное сообщение Ура работает! Это означает, что вы победили! Теперь можно закричать “Ура!”
Метод 2.

Отладчик, какое это сладкое слово для программиста. Конечно же, используя отладчик, вы на порядок быстрее доберетесь до этих подлых глюков, которые мешают сделать рабочую программу. Но давайте серьезно. Существует довольно много программ-отладчиков для Perl-программ. Все они имеют свои плюсы и минусы. Рассмотрим наиболее популярные из них:

Perl Builder (http://www.querybot.com/perlbuilderev.exe) - одна из самых мощных и удобных программ - отладчиков под W32. Из наиболее полезных особенностей данной программы можно выделить: мощный механизм отладки скриптов, возможность просмотра значений переменных, очень удобный интерфейс эмуляции Cgi-запросов, приятный (дружественный) пользовательский интерфейс. Единственный минус, как для нас, жителей СНГ, это то, что данная программа коммерческая

DzSoft Perl Editor (http://www.dzsoft.com/download/dzperl22.zip) - эта программа также коммерческая. Небольшая и очень удобная программа. Особенности: возможность upload-а скриптов на сервер, быстрая вставка (вставка определенного куска кода нажатием, одной клавиши), возможность редактирования переменных окружения, возможность работать в разных кодировках, что очень удобно для русскоязычного пользователя.

Perl Studio (http://www.perl-studio.com/pstudio.exe) - очень мощный инструмент для создания Perl скриптов, функции отладки реализованы слабее, чем у вышеупомянутых “собратьев”, но встроено очень много функций, полезных для создателя скриптов: автоматизация написания кода (например, SQL запросы, SSI - директивы), множество помощников и построителей, интуитивный интерфейс, хорошая документация. Опять же, программа коммерческая.
Метод 3.

Самый простой метод работы с Perl-скриптами. Этот метод, не требует ни каких дополнительных программ кроме Perl - интерпретатора и броузера. Суть метода очень проста: после создания Perl скрипта мы запускаем интерпретатор и перенаправляем результаты работы в файл (например, для скрипта test.pl - perl test.pl > test.htm). После этого в полученном файле удаляем строку Content-type: text/html\n\n. Просматривая данный файл броузере, вы получите результат работы скрипта.

Рекомендуется не “зацикливаться” на каком-либо одном из этих методов, а стараться использовать комбинированный подход.
Источник: bobrdobr.ru

Вы где-то там читали, что для того, чтобы сделать гостевую книгу или опрос, нужно знать какое-то там веб-программирование. Вы когда-то там слышали, что такое веб-программирование. Вот мы и встретились, ведь я когда-то тоже мучился этими вопросами, а ныне попытаюсь дать на них ответы.

Языки веб-программирования - это соответственно языки, которые в основном предназначены для работы с интернет-технологиями. А некоторые и создавались только для работы с каким-нибудь ресурсом, и лишь долгое время спустя к ним приходила известность и всеобщее признание (например, PHP). Но я не буду углубляться в историю создания различных языков веб-программирования, поскольку не она является предметом этой статьи, а если читателю интересно, он может найти её на сайтах разработчиков.

Языки веб-программирования делятся на две группы: клиентские и серверные. Напомню, что такое сервер: это и тот компьютер, где хранится ваш сайт, и та программа, которая обрабатывает запросы браузера к какой-либо странице.

Клиентские языки

Как следует из названия, клиентские языки обрабатываются на стороне клиента пользователя, а если проще - программы на клиентском языке обрабатывает браузер. Отсюда следует и недостаток - это то, что обработка скрипта зависит от браузера пользователя, и пользователь имеет полномочия настроить свой браузер так, чтобы он вообще игнорировал написанные вами скрипты. При этом, если браузер старый, он может не поддерживать тот или иной язык или версию языка, на которую вы опираетесь. С современными браузерами таких проблем возникать не должно, к тому же языки программирования не так уж часто кардинально обновляются (раз в несколько лет) и лучшие из них давно известны. Также код клиентского скрипта может посмотреть каждый, выбрав в меню “Вид” своего браузера вкладку “Исходный код” (или что-то в этом роде).

Преимущество же клиентского языка заключается в том, что обработка скриптов на таком языке может выполняться без отправки документа на сервер. Это легче объяснить на примере: допустим, вам надо проверить правильно ли пользователь ввел e-mail (т.е., например, проверить в нем наличие “@”); чтобы это сделать пользователю, надо было бы отправить форму с заполненными данными, потом дождаться, пока она обработается, и лишь после этого получить сообщение об ошибке (если она, разумеется, присутствует). Процесс слишком долгий. С клиентским же языком программа сразу проверит правильное заполнение формы перед отправкой, и, если необходимо, выведет ошибку. Отсюда же вытекает и то ограничение, что с помощью клиентского языка программирования ничто не может быть записано на сервер, то есть, например, с его помощью нельзя сделать гостевую книгу, потому что тогда надо записывать сообщения в какой-либо файл на сервере.

Самым распространенным из клиентских языков является JavaScript, разработчиками которого является компания Netscape (www.netscape.com, думаю, вам известен их браузер Netscape Navigator) совместно с компанией SunMicrosystems (www.sun.com). Другой вариант клиентского языка это, например, VisualBasicScript (VBS). Чтобы начать учить клиентский язык веб-программирования, Вам понадобится поддерживающий этот язык браузер (Internet Explorer (www.microsoft.com), Opera (www.opera.com), Netscape Navigator (www.netscape.com), Mozilla (www.mozilla.org), будут подходящими вариантами (лично я пользуюсь последним)) и обучающий материал, который можно найти на сайте alepira.ural.ru

Серверные языки

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

Когда пользователь дает запрос на какую-либо страницу (переходит на нее по ссылке, или вводит адрес в адресной строке своего браузера), то вызванная страница сначала обрабатывается на сервере, то есть выполняются все скрипты, связанные со страницой, и только потом возвращается к посетителю в виде простого HTML-документа (то есть посетитель уже никак не сможет увидеть код Вашего скрипта). Но работа ваших скриптов уже полностью зависима от сервера, на котором расположен ваш сайт, и от того, какая версия того или иного языка поддерживается хостингом.

Серверные языки программирования открывают перед программистом большие просторы в деятельности, однако, сколько бы не писали люди, продвигающие язык, что их язык очень легок для обучения, без предварительного груза знаний освоить довольно-таки тяжело.

Здесь же стоит упомянуть, что такое Система Управления Баз Данных, или СУБД. Это, по сути, тоже сервер, на котором в определенном пользователем порядке хранится разная необходимая информация, которая может быть вызвана в любой момент. Это библиотека, в которой все материалы аккуратно сложены по полочкам и в любой момент могут быть взяты. Обычно при покупке хостинга выделяется одна База данных (БД), в которой пользователь может создавать множество таблиц, а в них уже хранить разнообразную информацию. То есть если опять же вернуться к примеру с гостевой книгой, то в какой-либо созданной Вами таблице можно хранить сообщения, оставленные пользователями. Можно, конечно, хранить их и в текстовом файле, но это менее надежно, да и к тому же я привел лишь мелкий пример, а если, скажем Вам надо хранить пароли (а их надо хранить в зашифрованном виде), или связать несколько таблиц при обращении к каким-либо данным, тут без БД не обойтись.

В настоящее время стали известны и не напрасно СУБД, обращение к которым производится посредством Structured Query Language (SQL), или структуризированным языком запросов. Чтобы работать с этими базами данных (дополнять, обновлять, делать запросы и т. д.) вам необходимо знать этот самый SQL. Среди таких СУБД наиболее известна MySQL (www.mysql.com), я же для себя предпочел PostgreSQL (www.postgresql.org).

Пара слов напоследок

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

Среди серверных языков программирования выделяются PHP (PHP: Hypertext Preprocessor) (www.php.net), Perl (www.perl.com), SSI (Server Side Include). Для тестирования этих скриптов Вам понадобится уже побольше: сервер (www.apache.org), интерпретатор языка (можно взять на сайте производителя), ну и конечно при продуктивной работе еще и СУБД.
Источник: www.postroika.ru

Заранее извинюсь перед теми читателями, которые искали учебник или краткое руководство по Перлу. Здесь я не буду рассказывать о синтаксисе языка и не приведу пример программы, печатающей знаменитую фразу “Hello, world!”. Предоставим это авторам издательства О’Райли и профессиональным technical writers. [1,2]

Эту статью первоначально намечалось написать в качестве оправдания перед самим собой - почему прикладной программист с десятилетним стажем работы на Си перешел на Перл для решения повседневных задач. Но перечитав внимательнее, я понял, что из “самооправдания” статья превратилась в эдакий манифест для широких масс. Вот так мой опус “вышел в люди”.

Итак, о чем собственно идет речь? Неужели в современной программистской среде нет лучшей альтернативы? (естественно, речь идет о программистах “широкого профиля” имеющих выбор в области языка программирования) Что дает мне Перл? В чем его недостатки?

Попробую ответить на все вопросы по порядку. Начнем с представления объекта обсуждения. Не вдаваясь в подробности, сообщу, что язык этот относительно молодой, но чрезвычайно мощный и интуитивно понятный для программирующего на любом языке. За короткое время Перл прочно обосновался в таких серьезных областях программистского ремесла как CGI, Unix scripting, Web-дизайн.

Позвольте, спросит удивленный читатель, а как насчет всеми (не)любимой, но бесспорно самой массовой платформы - Windows? А так, - используется, но в основном в серверных приложениях (ну там NT, Win2K и прочая), хотя Перл безо всяких проблем работает и на стандартных редакциях “окошек”.

[3] Ну почему, спросит еще более удивленный читатель, программисты всего мира дружными рядами не ринулись строчить Win-приложения на этом языке? А причина до смешного проста: Перл - скриптовый (интерпретируемый) язык, что очень удобно в WWW, но совсем не удобно для стандартного пользователя “окошек”, уровень способностей которого обычно колеблется между умением “поставить винды” и знанием “операционной системы эксель” ;-).

В результате Перл-программа будет работать только на компьютере, где установлен интерпретатор Перла. Поэтому пользователи многочисленных клонов Юниксов охотно пользуются Перлом в своих ежедневных задачах - ведь им не надо напрягаться с установкой интерпретатора - он подобно Квик Бейсику (извиняюсь за сравнение) автоматически включается в дистрибутив системы. Да-да, я не оговорился, обыкновенные “пользователи” используют Перл - ведь он объединяет в себе синтаксис и функциональность таких базовых команд Юникса как grep, sed, awk, tr, да и самого Юникс-шелла csh.

Тут программисты на Си/Си++ сразу скривятся - интерпретатор? Но ведь это дико неэффективно! Вынужден согласиться - да, не супер эффективно, когда речь идет о Бейсике.

Но Перл сочетает в себе преимущества компилируемых и интерпретируемых языков - программа переводится во внутренний код перед выполнением (как в Java) и в то же время остается возможность загрузки и выполнения фрагментов “на лету”.

Добавьте сюда поддержку объектов, возможность подключения подпрограмм написанных на других языках (си, ассемблер), наконец огромное количество прикладных библиотек (от доступа к базам данных и платформенно-независимой графики до работы с Web: разбор HTML, посылка/прием почты, загрузка/посылка по HTTP и FTP), плюс мощнейшие встроенные функции по обработке текста - вот вам вкратце весь Перл. [4,5]

К преимуществам Перла можно отнести и Си-подобный синтаксис (с множеством удобных расширений, хотя любители чистого Си/Си++ могут их не использовать). Несколько смущает “квикбейсиковый” способ объявления переменных (то есть - никакого!) и примерно такая же “явная” типизация объектов. Но при желании эта первая “фича” может быть выключена и тогда (ну совсем как в старом добром Си) каждая переменная должна быть описана явно. А явная типизация объектов вообще очень удобна (сравните стандарты на имена переменных, диктуемые Win-API: p - pointer, s - string, b - byte).

Чтобы проиллюстрировать простоту написания программ на Перле приведу пример из личного опыта: для собственных нужд (и из-за дремучести в области UNIX) мной был написан неплохой Download Manager (как позже выяснилось - со всеми функциями WGET). Написан быстро - по принципу “2 строки вокруг одной работавшей ранее”. При этом ничем выдающимся в области программирования я не блистаю, а Интернет и сетевые технологии для меня вообще “лес густой”. И ведь работает “как часы”, так как основную задачу - разбор HTML - на Перле можно решить в две-три строки.

Другой пример - за пару-тройку ночей сляпана довольно корявая (с художественной точки зрения) игрулька для ребенка. Игрулька (написанная на скриптовом! языке) содержит (тупейшую) анимацию, активные объекты, окошко настройки и прочая и прочая. Программа спокойно работает на любом (при наличии Tk не ниже 8.00) Юниксе и на любой Windows-системе (после компиляции в один большой экзешник). При этом (из-за моей серости в программировании) не потребовалось учить все эти дурацкие Win-API, классы окон и подобную философию). Кстати и программирование “специально для Юниксов” мне не знакомо - знай себе манипулируй абстрактными событиями и окошками. [6]

Добавлю, что любой эксперимент с графикой в Перле выглядит не сложнее программы “Hello, world!” - достаточно запустить поставляемую с перл-Tk программку ptksh и мы уже “в Хопре” со всеми функциями графики и даже “историей” команд. При этом можно спокойно переносить куски кода из понравившихся примеров без боязни что что-то “завалится” и придется перезагружаться так как программа “стрельнула” по системной памяти - ведь в Перле нет понятия “выход за границы массива” или “неверный указатель”. Это свойство Перла делает его незаменимым с точки зрения простоты отладки - все скаляры, будь то данные, указатели или даже объекты классов всегда являются символьными строками, а баг в программе никогда не приводит к порче реальной памяти. В результате можно отлаживать и “доводить до ума” даже явно “нерабочие” куски.

Не стоит забывать и о таком “необычном” для российского пользователя факторе как легальная бесплатность Перла. Да-да, все вышеописанные чудеса можно безвозмездно (то есть даром) загрузить из Всемирной Паутины и пользоваться ими с чистой совестью.

Итак, перейдя на Перл я получил:

* мощный, функционально полный язык с огромным количеством надстроек, вплоть до “перегрузки операций”
* бесплатные и компактные программы интерпретации для всех платформ
* устойчивую к ошибкам программиста систему + удобный встроенный отладчик
* возможность строгого контроля за синтаксисом
* средства манипуляции базами данных и OLE объектами (последнее - только в Win)
* программный доступ в Интернет и работу с электронной почтой
* автоматизированную сборку-разборку HTML
* поддержку сокетов (для связки клиент-сервер)
* несложную и легко переносимую (Юниксы,Win,Mac) библиотеку графики - Tk

Ну ладно, скажет нетерпеливый читатель, а где же обещанные недостатки? Помимо интерпретируемости, Перл имеет еще один естественный недостаток - программа на нем всегда ОТКРЫТА. Если Вы захотите написать программу-викторину вроде “Поля Чудес” или “Миллионера”, то такую игру “взломает” любой малограмотный пользователь.

Этого можно избежать откомпилировав скрипт под Windows, но лицензия Перла требует открытости исходного кода и в этом случае. Какой-нибудь Вася Пупкин это проигнорирует, но для серьезных продуктов такое ограничение может стать непреодолимым препятствием.

Кстати, сам Win-компилятор является отдельным продуктом (и небесплатным!), к которому (хакеры не дремлют) уже придуман декомпилятор. [7]

Вопросы переносимости также не решены в Перле на 100% (как почти в любом другом языке). Например, программисту в Юниксе гораздо естественнее вызвать какой-нибудь любимый grep или gfind обратившись прямо в шелл, чем искать аналогичную библиотечную (а значит - переносимую) функцию на CPAN (стандартной библиотеке Перл-модулей). В результате один такой вызов приведет к “падению” всей программы под Windows или Mac. И наоборот, стоит Win-программисту “по старой привычке” использовать функции работы с реестром, OLE-объектами и т.п., как программа становится “невыполнимой” в Юниксе.

Несомненным недостатком, вытекающим из ранее указанного достоинства, является “мягкое” отношение к ошибкам программиста. Если не включить модуль строгого контроля (а кому понравится ситуация когда компилятор то и дело требует описать переменную или “ругается” на “подозрительные” вольности с указателями), то обращение к строке как к указателю может привести к неожиданной порче соответствующей переменной. А чего стоят “отрицательные” индексы массива, адресующие массив “с конца”? Если это сделано не умышленно то программа не “завалится”, но и не пожалуется на такую вольность.

Если от прочтения последних абзацев у читателя появилось отвращение к этому языку советую перечитать начало статьи (во всем плохом есть немного хорошего и наоборот). Кстати, философия Перла не так примитивна как может показаться - стоит начать изучать этот язык и программировать на нем и у вас тут же возникнет ощущение, что “кто-то тут все хорошо продумал”. Но, впрочем, это тема для другой статьи.
Источник:webfocus.ru

Эта книга будет полезна администраторам с различным уровнем опыта - от обычных пользователей Linux до администраторов крупных систем. Автор рассматривает основные платформы, включая Unix, Windows NT/2000 и MacOS. При наличии некоторого опыта программирования на Perl вы узнаете, как при помощи этого языка повысить производительность во многих областях, включая: управление учетными записями пользователей; наблюдение за файловой системой и отслеживание процессов; работу с сетевыми службами имен NIS и DNS; администрирование баз данных при помощи DBI и ODBC; работу со службами каталогов LDAP и ADSI; обработку и анализ файлов журналов регистрации; поддержку защищенной сети; наблюдение за удаленными устройствами средствами SNMP. Автор - опытный системный администратор, работающий в многоплатформенном окружении, что предоставляет вам хорошую возможность поучиться на чужом опыте. Вы узнаете о возможных ловушках и способах их обойти при помощи Perl. Включенные в книгу примеры и сценарии можно использовать для решения рутинных повседневных задач.

Оглавление:
1. Введение
2. Файловые системы
3. Учетные записи пользователей
4. Действия пользователей
5. Службы имен TCP/IP
6. Службы каталогов
7. Администрирование баз данных SQL
8. Электронная почта
9. Журналы
10. Безопасность и наблюдение за сетью
Источник: progbook.net