ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Simohin Alex                         2:5020/400     14 Dec 2001  16:57:47
 To : All
 Subject : Локализация
 -------------------------------------------------------------------------------- 
 

 
 Локализация сервера - KOI8-UA
 Пишу:
 use locale;
 use POSIX qw(locale_h);
 my $locale = "uk_UA.KOI8-U";
 my $new_locale = setlocale(LC_CTYPE, $locale);
 die "Hет локали $locale" if ($new_locale ne $locale);
 
 ПРОБЛЕМА:
 это работает:
 print "\UВесь текст большими";
 а вот это нет:
 sub check_login() {
 return ($_[0] =~ /^[\w\d]+$/) ? 1 : 0;
 } #возвращает 0, если в $_[0] русский текст
 
 получается, что \w не определяет русские буквы?!
 почему?
 --- ifmail v.2.15dev5
  * Origin: user from ELVISTI (2:5020/400)
 
 

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

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