ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     14 Dec 2001  19:39:38
 To : "Simohin Alex"
 Subject : Re: Локализация
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Simohin Alex.
 SA> Локализация сервера - KOI8-UA
 SA> Пишу:
 SA> use locale;
 SA> use POSIX qw(locale_h);
 SA> my $locale = "uk_UA.KOI8-U";
 SA> my $new_locale = setlocale(LC_CTYPE, $locale);
 SA> die "Hет локали $locale" if ($new_locale ne $locale);
 
 SA> ПРОБЛЕМА:
 SA> это работает:
 SA> print "\UВесь текст большими";
 SA> а вот это нет:
 SA> sub check_login() {
 SA> return ($_[0] =~ /^[\w\d]+$/) ? 1 : 0;
 SA> } #возвращает 0, если в $_[0] русский текст
 
 SA> получается, что \w не определяет русские буквы?!
 SA> почему?
 
 Судя по эксперименту, проблема не имеет ничего общего с локалью. А именно -
 Too many arguments for main::check_login. У нее по определению 0 аргументов,
 так что ей ничего не передается.
 
 -- 
 Artem Chuprina
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Локализация   Simohin Alex   14 Dec 2001 16:57:47   Re: Локализация   Artem Chuprina   14 Dec 2001 19:39:38