[sisyphus] Re: Сортировка кириллицы вPerl

[Епифанов Сергей]

В сообщении от 15 Июнь 2003 23:06 Alexey Tourbin написал:
> On Sun, Jun 15, 2003 at 05:25:46PM +0300, Michael Shigorin 
wrote:
> > > 1. Сортировка:
> > > #!/usr/bin/perl -w
> > >
> > > use strict;
> > > use POSIX;
> > > use locale;
> > > use encoding 'cp1251';
> > >
> > > my @l1 = ("п", "р", "с", "т");
> > > my @l2 = qw(п р с т);
> > > print "$_(", ord, ") " foreach sort(@l1); print "\n";
> > > print "$_(", ord, ") " foreach sort(@l2); print "\n";
> > >
> > > Вывод:
> > > п(1087) т(1090) с(1089) р(1088) //?!
> > > п(1087) р(1088) с(1089) т(1090)
>
> Два разных результата?  Этого просто не может быть.

У меня тоже повторилось


> Короче,
>
> #se locale;
> use encoding 'utf-8';

меняю cp1251 на utf-8 - вместо 'п(1087) р(1088) с(1089) т(1090)' 
вижу '(0) (0) (0) (0)'

локаль cp1251

-- 
С уважением, Епифанов Сергей