ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel Ammosov                        2:5020/400     25 Oct 2001  12:05:09
 To : "Simohin Alex"
 Subject : Re: use locale + uc() = :(
 -------------------------------------------------------------------------------- 
 

 Simohin Alex wrote:
 
 SA>Пишу
 SA>use locale;
 SA>use POSIX qw(locale_h);
 SA>setlocale(LC_ALL,"ru_RU.CP-1251");
 
 SA>$s = uc("русский");
 SA>print header(), $s;
 
 SA>Кодировку файл имеет правильный.
 SA>Почему не изменяется регистр?
 
 Hа системе может не быть такой локали, проверь то что возвращает 
 setlocale():
 
 #!/usr/bin/perl -w
 use strict;
 use locale;
 use POSIX qw(locale_h);
 
 my $locale = "ru_RU.CP-1251";
 my $new_locale = setlocale(LC_ALL, $locale);
 die "Hет локали $locale" if ($new_locale ne $locale);
 
 my $s = uc("русский");
 print $s;
 
 -- 
 Павел Аммосов, email: apavel@aha.ru, icq uin: 19210183
 www: http://isabase.philol.msu.ru/~apavel/
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    use locale + uc() = :(   Simohin Alex   24 Oct 2001 17:44:07   Re: use locale + uc() = :(   Pavel Ammosov   25 Oct 2001 12:05:09