|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Aleksey Korolkov 2:5020/400 16 Feb 2001 22:17:28
To : All
Subject : Lingua::RU::Censure
--------------------------------------------------------------------------------
Hi All!
Есть ли тут люди, использующие Lingua::RU::Censure ?
Подскажите если знаете на какие грабли я наступаю.
Вот моя локаль:
----------------------------------------------------------------------
LANG=ru_RU.KOI8-R
LC_CTYPE="ru_RU.KOI8-R"
LC_NUMERIC="ru_RU.KOI8-R"
LC_TIME="ru_RU.KOI8-R"
LC_COLLATE="ru_RU.KOI8-R"
LC_MONETARY="ru_RU.KOI8-R"
LC_MESSAGES="ru_RU.KOI8-R"
LC_PAPER="ru_RU.KOI8-R"
LC_NAME="ru_RU.KOI8-R"
LC_ADDRESS="ru_RU.KOI8-R"
LC_TELEPHONE="ru_RU.KOI8-R"
LC_MEASUREMENT="ru_RU.KOI8-R"
LC_IDENTIFICATION="ru_RU.KOI8-R"
LC_ALL=
----------------------------------------------------------------------
А вот то, что не хочет правильно работать:
----------------------------------------------------------------------
#!/usr/bin/perl
use locale;
use POSIX qw(locale_h);
use Lingua::RU::Censure;
setlocale(LC_CTYPE, 'ru_RU.KOI8-R');
setlocale(LC_COLLATE, 'ru_RU.KOI8-R');
$word = "Спасибо";
if (slangControl($word)) {
print "$word - bad word\n";
}
else {
print "$word - good :)))))))))\n";
}
----------------------------------------------------------------------
Hе нравится слово "Спасибо", "):)" тоже плохое.
Т.е. они детектятся как нецензурщина. У становка ru_SU.KOI8-R в setlocale
результата не дает. Мат фильтруется, но "Спасибо" все равно не нравится.
Все происходит на RedHat 7.0 / 6.2
Hа сайте авторов все работает на ура, подскажите где я ошибаюсь.
--
Aleksey Korolkov
--- ifmail v.2.15dev5
* Origin: UNKNOWN (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
