Ключевые слова:perl, locale, (найти похожие документы)
Date: Thu, 25 Oct 2001 08:05:09 +0000 (UTC)
From: Pavel Ammosov <[email protected]>
Newsgroups: fido7.ru.perl
Subject: [Perl] Включение русской locale в скриптах
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>Почему не изменяется регистр?
На системе может не быть такой локали, проверь то что возвращает
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 "Нет локали $locale" if ($new_locale ne $locale);
my $s = uc("русский");
print $s;
--
Павел Аммосов, email: [email protected], icq uin: 19210183
www: http://isabase.philol.msu.ru/~apavel/
