О выборе предлогов
Продолжаю баловаться двумя языками - перлом и русским:
#!/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( огнём садом светом слоном спичками ссылкой Стёпой стаканом сухарём сэром топором );
Наверное, добавлю эти функции в Lingua::RU::Inflect - и можно будет сегодня-завтра выложить версию 0.02.
#!/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( огнём садом светом слоном спичками ссылкой Стёпой стаканом сухарём сэром топором );
Наверное, добавлю эти функции в Lingua::RU::Inflect - и можно будет сегодня-завтра выложить версию 0.02.