Собственно, как и было сказано ранее, я для упрощения изучения японского языка сделал такой вот сайтец — http://kanji.xskernel.org/. И обещал обновить его структуру. Сегодня залил свежий движок на пропатченную базу. Теперь осталось выпилить из базы лишние таблицы, которые уже не играют никакой роли. Наконец-то заработал словарь, который по мере изучения мною языка потихоньку пополняется новыми словами. Идею, предложенную товарищем stalkerg я постарался воплотить по-максимуму. А именно: сделал возможным поиск слова не только по кандзи, но и по фонетической составляющей (то есть, можно вписать слово каной либо ромадзи, при этом добавлена ещё одна фича: если вы не знаете, является гласный звук долгим или коротким, то словарь выдаст вам оба результата, если все гласные звуки будут введены как короткие).
Соответственно, раньше движок задумывался как запоминалка канзди, теперь же он всё больше и больше становится полноценным словарём, поэтому возможна трансляция как из японского в русский, так и из русского в японский. Единственное, что меня пока смущает, — это дополнения к слову. Их, скорее, следует переделать (вернее группировать), и я уже примерно представляю как. Но это позже. Сейчас меня больше беспокоит отсутствие админки, ввиду чего данные мне приходится пока по-прежнему вбивать специально написанными консольными скриптами.
Также в самом движке добавил задел на поддержку не только СУБД MySQL, но и СУБД Firebird. Если будет время — обязательно продолжу развитие движка в этом направлении. В общем, планов море, а времени и сил — чуть.
Опять же, если есть какие замечания/пожелания по поводу сайта, прошу писать отзывы.
И, напоследок. В процессе написания движка сайта (а пишется он на PERL), мне пришлось решить ряд задач, о которых могут выйти вполне интересные статьи. Если аудитории интересно — то я могу потихоньку выкладывать тут упрощённые кусочки движка с объяснением, как это работает. Заодно и блог оживёт, пожалуй.

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

• simple-telnetd может запускать только разрешенные программы, которые перечислены в файле /etc/simple-telnetd.conf. Демон должен перечитывать этот файл и обновлять список разрешенных программ после поступления сигнала SIGHUP;
• Запускаемые программы могут иметь параметры командной строки, но simple-telnetd не должен поддерживать интерактивного взаимодействия пользователя с запускаемыми программами;
• Демон не обязан обрабатывать спец символы: ^C, ^D, и т.д.
• В качестве параметра командной строки simple-telnetd может передаваться параметр timeout — максимальное время выполнения одной команды;
• Желательно чтобы демон мог прослушивать не только tcp сокеты, но и локальные (например /tmp/simple-telnetd);

В конце-концов, скрипт всё же не пригодился, поэтому, чтобы компенсировать потраченное на него время, выкладываю его тут — вдруг, кому пригодится. Забрать его можно по этой ссылке.
simple-telnetd.tar.gz
Если кому-то помогло, пишите, не стесняйтесь, буду рад .

Поскольку я писал этот демон с особым энтузиазмом, не обошлось без фич, которых нет в исходном задании: написал init.d-скрипт для службы, который успешно был протестирован в openSUSE Linux, оформил perldoc и manpages, сделал возможность интерактивной авторизации, ну и другая мелочёвка (уже даже и не помню какая) вдовесок.

Несмотря на то, что репозиторий ОС XSystem мигрировал ко мне на домашний сервер, всё же хорошо было бы хранить бэкапы на каком-нибудь удалённом сервере.
Для этого я решил воспользоваться уже имеющимся репозиторием subversion на http://sourceforge.net/.

Идея работы такая: раз в сутки мой репозиторий должен синхронизироваться с удалённым репозиторием. При этом, все изменения в одном репозитории должны однозначно отражаться на другом. С версии subversion 1.4 появилась такая тулза, как svnsync, но она для моего случая не подходит: оба репозитория не предоставляют прямого доступа к svnroot.

#!/usr/bin/perl

use strict;

my @blacklist   =
(
    qr(^\.svn|\/\.svn$),
    qr(^\.{1,2}$|\/\.{1,2}$)
);

my $src_path  = 'xsystem';
my $dst_path  = 'xskernel-sync';
my $svn_user  = '';
my $svn_pass  = '';

# Update repositories
`svn update $src_path`;
`svn update $dst_path`;

# now search files in src_path and compare to dst_path

add_files();
remove_files();

`svn commit $dst_path -m "Synchronization commit" --username $svn_user --password $svn_pass`;

sub md5sum
{
    my $fname = shift;
    if (open PIPE, "md5sum $fname |")
    {
        my $line =
;
        close PIPE;
        my ($sum) = ($line =~ /^(\w+)\s+/o);
        return $sum;
    }
    return undef;
}

sub ban_file
{
    my $src_file = shift;
    foreach (@blacklist)
    {
        ($src_file =~ $_) and
            return 1;
    }
    return undef;
}

sub add_files
{
    my @directories = ();
    my $curr_dir = '';

    do
    {
        # Открываем каталог
        if (opendir DIRHDL, "$src_path$curr_dir")
        {
            CYCLE: # Читаем содержимое каталога
            while (my $fname = readdir DIRHDL)
            {
                # Баним ненужные файлы
                my $src_file = "$src_path$curr_dir/$fname";
                (ban_file($src_file)) and
                    next CYCLE;

                my $dst_short = "$curr_dir/$fname";
                my $dst_file  = "$dst_path$dst_short";

                # Файл является каталогом?
                if (-d $src_file)
                {
                    # необходимо проверить, что он есть в destination-репозитории
                    unless (-d $dst_file)
                    {
                        # если каталога нет - его нужно создать
                        print "mkdir   $dst_short\n";
                        `mkdir -p $dst_file`;
                        `svn add $dst_file`;
                    }

                    # Запомним каталог для того, чтобы в будущем его просмотреть
                    push @directories, $dst_short;
                }
                else
                {
                    # проверяем, существует ли файл в destination-репозитории
                    unless (-e $dst_file)
                    {
                        # файл не существует, его нужно скопировать и добавить
                        print "add     $dst_short\n";
                        `cp -f $src_file $dst_file`;
                        `svn add $dst_file`;
                    }
                    else
                    {
                        # файл существует, вычисляем md5sum обоих файлов
                        my $sum1 = md5sum($src_file);
                        my $sum2 = md5sum($dst_file);

                        # если суммы не совпадают - заменяем файл новым
                        if ($sum1 ne $sum2)
                        {
                            print "replace $dst_short\n";
                            `cp -f $src_file $dst_file`;
                        }
                    }
                }
            }
        }
        else
        {
            print "Can't open dir $src_path$curr_dir\n";
        }

        # закрываем каталог и получаем следующий каталог, который следует обработать
        closedir DIRHDL;
        $curr_dir = shift @directories;
    }
    while (defined $curr_dir); # крутимся, пока в списке присутствуют обрабатываемые каталоги.
}

sub remove_files
{
    my @directories = ();
    my $curr_dir = '';

    do
    {
        # опять же, открываем каталог destination-репозитория
        if (opendir DIRHDL, "$dst_path$curr_dir")
        {
            CYCLE: # читаем файлы
            while (my $fname = readdir DIRHDL)
            {
                # баним недопустимые diren'ы
                my $src_file = "$dst_path$curr_dir/$fname";
                (ban_file($src_file))
                    and next CYCLE;

                my $src_short = "$curr_dir/$fname";
                my $dst_file  = "$src_path$src_short";

                # проверяем, является ли это каталогом
                if (-d $src_file)
                {
                    # проверяем, существует ли этот каталог в source-репозитории
                    unless (-d $dst_file)
                    {
                        # каталога нет - удаляем его из destination-репозитория
                        print "rmdir   $src_short\n";
                        `svn delete $src_file`;
                    }
                    else
                    {
                        # каталог существует, запоминаем его для дальнейшей обработки
                        push @directories, $src_short;
                    }
                }
                else
                {
                    # Это обычный файл, проверяем, есть ли он в source-репозитории
                    unless (-e $dst_file)
                    {
                        # Файла нет, удаляем его из destination-репозитория
                        print "unlink  $src_short\n";
                        `svn delete $src_file`;
                    }
                }
            }
        }
        else
        {
            print "Can't open dir $dst_path$curr_dir\n";
        }

        # Закрываем каталог, получаем следующий
        closedir DIRHDL;
        $curr_dir = shift @directories;
    }
    while (defined $curr_dir);
}

Недостаток этой тулзы один: если файл был перемещён, то он будет распознан как новый файл. Хотя, я не думаю, что файлы и каталоги так часто перемещаются в логически корректно построенном дереве проекта.

Стремление товарища mar1ner  наблюдать за поисковыми запросами также сподвигло меня на идею написания скрипта, который составлял бы суточную статистику переходов по поисковым запросам на мой сервер. Скрипт запускается в час ночи по локальному времени (cron) и собирает информацию за прошедшие сутки. Запуск в час ночи сделал с поправкой на переход с летнего времени на зимнее и обратно , на всякий пожарный.

Собственно, сам скрипт выглядит так:

#!/usr/bin/perl

use strict;

my %search_regexp =
(
    ‘rambler’     => ‘nova\.rambler\.ru\/search\?.*query’,
    ‘yandex’      => ‘yandex\.ru\/yandsearch\?.*text’,
    ‘google’      => ‘.*google.*\/search\?.*\&q’,
    ‘msn’         => ‘search\.live\.com/results.aspx\?q’,
    ‘yahoo’       => ‘search\.yahoo\.com/search\?p’,
    ‘nigma.ru’    => ‘nigma\.ru\/index.php\?s’,
    ‘yes.ru’      => ‘search\.yes\.ru\/index.php\?s’,
    ‘altavista’   => ‘.*altavista\.com\/web\/results\?.*\&q’
);

my $log_file  = ‘/var/log/apache2/access_log’;
my $dest_mail = ‘mail@domain.org’;
my $mail_prog = ‘/usr/sbin/sendmail -t’;

# Get date
my ($day, $month, $year, $wday) = (localtime(time()-2*60*60))[3..6]; # subtract 2 hours

$year  += 1900;
$day    = sprintf("%02d", $day);
$month  = (‘Jan’, ‘Feb’, ‘Mar’, ‘Apr’, ‘May’, ‘Jun’, ‘Jul’, ‘Aug’, ‘Sep’, ‘Oct’, ‘Nov’, ‘Dec’)[$month];
$wday   = (‘Sun’, ‘Mon’, ‘Tue’, ‘Wed’, ‘Thu’, ‘Fri’, ‘Sat’)[$wday];

# replace patterns
foreach (values %search_regexp)
{
    $_ = qr(^\d+\.\d+\.\d+\.\d+[^\[]*\[$day\/$month\/$year[^\]]*\]\s*\"GET [^\"]*\"[^\"]*\"http:\/\/$_=([^\&^\"]*)[\&\"]);
}

my $result_hash = { };

if (open LOG_FILE, ‘<’, $log_file)
{
    while (my $line = <LOG_FILE>)
    {
        foreach my $key (keys %search_regexp)
        {
            if (my ($request) = ($line =~ $search_regexp{$key}))
            {
                my $counters = ($result_hash->{$key} ||= {});
                $request =~ s/\+/ /g;
                $request =~ s/\%([a-fA-F0-9]{2})/pack(‘C’,hex($1))/eg;
                $counters->{$request} ||= 0;
                $counters->{$request}++;
                last;
            }
        }
    }

    close LOG_FILE;
}
else
{
    print "Could not open log file\n";
}

# Now make a mail with information
open MAILER, "| $mail_prog -t";

print MAILER <<MAIL_EOF;
Content-Type: text/html; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
To: $dest_mail
From: webserver\@xskernel.org
Subject: Daily Search Engine Reference Log.
<html><body>
<h1>Daily Search Engine Reference Log.</h1>
MAIL_EOF

foreach my $engine (keys %$result_hash)
{
    print MAILER "<h2>Engine: $engine</h2>";
    print MAILER "<table width=640><tr><th align=\"left\" bgcolor=\"#96f198\" width=\"550\"><b>Request</b></th><th align=\"center\" bgcolor=\"#96f198\" width=\"90\"><b>Count</b></th>\n";

    while (my ($request, $count) = each %{$result_hash->{$engine}})
    {
        print MAILER "<tr bgcolor=\"#eef196\"><td align=\"left\">$request</td><td align=\"center\">$count</td>\n";
    }
    print MAILER "</table>\n";
}

print MAILER "</html></body>";

close MAILER;

Может быть, кому-нибудь тоже пригодится .

Список поисковиков взял тот, что помню, а также тех, что мне подсказали мои товарищи. Если есть ещё какие популярные поисковики, подскажите, может добавлю и их .
Кстати, aport.ru на запрос "XSystem Kernel Team" выдал фейл, не дав ни одной ссылки на официальный сайт.

З.Ы. Вообще, я не сторонник извращений на Perl и стараюсь делать код более понятным , с развёрнутыми циклами и прочей ерундой.