- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #1062 [644]
От : Slava Ivanov 2:5020/400 01 ноября 03, 03:43
Кому : Misha Shiposh 01 ноября 03, 05:31
Тема : Re: рустекст
-------------------------------------------------------------------------------
From: Slava Ivanov
Misha Shiposh пишет:
>
> каким образом в перле реализуется работа с кодировками? Конкретно интересует,
> как сделать следущее.
>
> while (<>) {
> if (s/(\".+\")/\U$1\E/) {print file_2 $_;}
> print file_2 $_;
>
> }
> close(file_2)
> Вот как быть с этим если встречается русский текст? типа "привет" - надо в
> верхний регистр. Может кто чего посоветует?
>
Попробуй:
use POSIX qw(locale_h);
setlocale("LC_ALL", "ru_RU.CP1251"); # если cp1251
use locale;
--- ifmail v.2.15dev5
* Origin: FKT (2:5020/400)