Установка локали

[apl]

Давно очень как-то решил этот вопрос, а сейчас не нахожу чего-то...

перловский скрипт юзает виндовую локаль...
setlocale(LC_CTYPE => 'ru_RU.CP1251');

а locale выдает такое

LANG=ru_RU.UTF-8
LC_CTYPE="ru_RU.UTF-8"
LC_NUMERIC="ru_RU.UTF-8"
LC_TIME="ru_RU.UTF-8"
LC_COLLATE="ru_RU.UTF-8"
LC_MONETARY="ru_RU.UTF-8"
LC_MESSAGES="ru_RU.UTF-8"
LC_PAPER="ru_RU.UTF-8"
LC_NAME="ru_RU.UTF-8"
LC_ADDRESS="ru_RU.UTF-8"
LC_TELEPHONE="ru_RU.UTF-8"
LC_MEASUREMENT="ru_RU.UTF-8"
LC_IDENTIFICATION="ru_RU.UTF-8"
LC_ALL=

подскажите плиз, как настроить
P.S. скрипт должен юзать 1251, а на машине у меня utf8

Помню что как-то очень просто решалось.... но давно и забыл что делать

[Malamut]

А для чего ему локаль винды? Вроде же мне казалось, что любые данные из одной кодировки в другую Encode перегоняет, не?
Ну или так:
use POSIX qw(setlocale LC_ALL LC_CTYPE LC_NUMERIC);
use locale; # ru_RU.KOI8-R, ru_RU.CP1251, ru_RU.ISO-8859-5, ru_RU.UTF-8
my $g_setlocale_all = POSIX::setlocale( &POSIX::LC_ALL, "ru_RU.KOI8-R" );
my $g_setlocale_num = POSIX::setlocale( &POSIX::LC_NUMERIC, "C" );

[apl]

Так не пробовал, оказалось все по-дурацки
тут setlocale(LC_CTYPE => 'ru_RU.CP1251');  нужно было написать с нижним регистром cp1251
 

я сегодня совсем туплю...

а виндовая локаль для того чтобы я с виндовых машин иногда мог соединяться и редактировать без геморроя... в винде сложнее перекодировать, а в Linuxе gedit рулит