ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Michael Poliakov                     2:5020/400     04 Dec 2000  16:35:03
 To : All
 Subject : Re: \U
 -------------------------------------------------------------------------------- 
 

 On Sat, 02 Dec 2000 01:15:28 +0300, Nikita Kuzmenko
 <Nikita.Kuzmenko@f34.n5084.z2.fidonet.org> wrote:
 
 >    Как сделать $lastname="\U$lastname" но для русского языка ?
 >То есть перевести переменную в верхний регистр русского языка (cp1251) юзая
 >activestate'овский перл, англицкий он переводит, а вот русский нет...
 
 use locale;
 use POSIX qw(locale_h);
 
 setlocale(LC_CTYPE, "Russian_Russia.1251");
 
 $lastname = "петров";
 print "\U$lastname"; # можно uc($lastname);
 Michael Poliakov
 --- ifmail v.2.15dev5
  * Origin: Nizhniny Novgorod Information Networks (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    \\U   Nikita Kuzmenko   02 Dec 2000 02:15:28   Re: \\U   Michael Poliakov   04 Dec 2000 16:35:03