shoorick

термин «вокзал» произошел от сочетания «вокальный зал»

#!/usr/bin/perl

use Lingua::Translit;

my $sample = 'Эй, жлоб! Где туз? Прячь юных съёмщиц в шкаф.';
my $tr;

for ( 'ALA-LC RUS', 'ISO 9', 'DIN 1460 RUS', 'GOST 7.79 RUS', 'GOST 7.79 RUS OLD' ) {
    $tr = new Lingua::Translit( $_ );
    printf "%17s  %s\n", $_, $tr->translit( $sample );
}

       ALA-LC RUS  Ėĭ, zhlob! Gde tuz? Priach′ iunykh s″ëmshchits v shkaf.
            ISO 9  Èj, žlob! Gde tuz? Prâčʹ ûnyh sʺëmŝic v škaf.
     DIN 1460 RUS  Ėj, žlob! Gde tuz? Prjač' junych s"ëmščic v škaf.
    GOST 7.79 RUS  E`j, zhlob! Gde tuz? Pryach` yuny'x s``yomshhicz v shkaf.
GOST 7.79 RUS OLD  E`j, zhlob! Gde tuz? Pryach` yuny'x s``yomshhicz v shkaf.

0. Свежая новость: оказалось, что трёхпалая чайка — не моёвка, а мóевка.
1. Mojowka теперь умеет показывать страницы посетителю на нужном ему языке. Язык может быть указан явно самим посетителем либо (если не указан) может выбираться автоматически, исходя из переданного заголовка Accept-Language. Пока доступны два языка — английский и русский.
   
   Сделано с использованием Mojolicious::Plugin::Textdomain, о котором я писал в декабре. К сожалению, Анатолий Лапицкий (nuclon) до сих пор не выложил свой модуль на CPAN.
2. Увидев в моёвке экземпляр jQuery плюс мою яваскриптовую писанину, GitHub почему-то решил, что проект в целом яваскриптовый, а не перловый. Как переучить его обратно — пока не знаю.

paratype

ПТ Сериф — это универсальная антиквенная гарнитура, разработанная специально для совместного применения с гротеском ПТ Санс, выпущенным ранее. Шрифт состоит из шести начертаний, согласованных с ПТ Санс по метрикам, пропорциям, насыщенности и рисунку. Нормальное и жирное начертания вместе с соответствующими курсивами образуют стандартный комплект для текстового набора. Кроме того, в гарнитуру входят два расширенных начертания — нормальное и курсивное — для набора текстов в мелких кеглях. Рисунок шрифта отличается крупным очком строчных, умеренным контрастом штрихов, мощными клиновидными, чуть выпуклыми засечками и треугольными концевыми элементами. Это придает шрифту современный характер и улучшенную удобочитаемость, что, помимо традиционного использования для деловой документации и печатных изданий различного профиля, делает его применимым также для рекламы и акциденции.

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

Гарнитура создана при финансовой поддержке Федерального агентства по печати и массовым коммуникациям Российской Федерации.

• Документация на cpan.org показывается в правильной кодировке. Правда, всё равно pod2html ругается, что не знает слова =encoding, а в man-страницах кириллица пропадает вовсе.
• Добавлена документация на русском языке.
• Добавлена функция choose_prepositions_by_next_word для выбора предлога с беглой гласной по следующему за ним словом, а также куча коротких имён для вызова этой функции с разными предлогами: izo, ob, so и т. п.
• Добавлены новые тесты. Выявленные при добавлении баги пофиксены.

#!/usr/bin/perl -wl -CS

use strict;
use utf8;

$,=' ';

sub choose_preposition_about_by_next_word {
    return
        /^[аиоуыэ]/i
        ? 'об'
        : 'о';
}

sub choose_preposition_with_by_next_word {
    return
        /^с[^аеёиоуыэюя]/i
        ? 'со'
        : 'с';
}

map {
    print choose_preposition_about_by_next_word, $_;
} qw(
    арбузе баране Елене ёлке игле йоде огне паре ухе юге яблоке
);

map {
    print choose_preposition_with_by_next_word, $_;
} qw(
    огнём садом светом слоном спичками ссылкой
    Стёпой стаканом сухарём сэром топором
);