Этот сайт написан на perl .
Необходимый минимум пакетов :
Perl
Apache
MySQL
Mozilla
Perl своими конструкциями напоминает язык программирования C .
Оператор require выполняет примерно ту же файловую функцию , что и си-шный #include.
Perl поддерживает модульность . Директива use позволяет использовать готовые модули ,
которые представляют из себя файлы с расширением .pm и в заголовке которых стоит
ключевое слово package.
Пример :
Создадим файл mypackage.pm и запишем в него следующий текст :
package mypackage;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(myfunc);
sub myfunc
{
print "myfunc";
}
Теперь в другом файле достаточно сделать вызов :
use mypackage;
myfunc;
В перле можно выполнять вызов системных команд , например простая строка
system "date"
распечатает текущее время .
Это же можно сделать другим способом :
exec "date"
В перле есть понятие 'ссылка' аналогичное си-шному .
Пусть нам дан массив из 10 чисел :
@array = (1..10);
Создадим ссылку на него :
$this_reference = \@named_array;
Распечатаем массив , передав ссылку на него в качестве параметра функции :
unchomp($this_reference);
sub unchomp
{
my $ref = shift;
for $element (@{$ref})
{
$element .= "\n";
print $element;
}
}
Более того , можно создать массив из указателей и передать его в качестве параметра !
@named_array2 = (11..20);
$this_reference2 = \@named_array2;
@this_reference_global = ($this_reference,$this_reference2);
for $aref (@this_reference_global)
{
unchomp($aref);
}
В перле есть именованные массивы - хэши:
$hash = {
"fred" => "flintstone",
"barney" => "rubble",
"betty" => "rubble",
};
$game = {
"fred" => [180, 150, 165],
"barney" => [172, 190, 158],
};
print $hash->{"fred"} ;
|
| max | Вот спасибо за статью!!! Очень помогла!!!
2006-08-01 21:20:27 | |
|
|
LINUX