ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Igor Tseglevsky                      2:5030/266     14 Jun 2000  21:20:04
 To : All
 Subject : cmp
 -------------------------------------------------------------------------------- 
 

 Кто может обьяснить, почему cmp не хочет сравнивать результаты работы
 функции?
 
 % loc.pl
 а б a в г д е я x ю к м л
 a x а б в г д е к л м ю я
 д г в a б а е л м к ю x я
 a x а б в г д е к л м ю я
 
 % cat loc.pl
 #!/usr/bin/perl -w
 
 use locale;
 use POSIX 'locale_h';
 setlocale(LC_ALL, 'ru_RU.KOI8-R');
 
 @bred = ('а', 'б', 'a', 'в', 'г', 'д', 'е', 'я', 'x', 'ю', 'к', 'м', 'л');
 
 print join (" ", @bred), "\n";
 
 print join (" ", sort { $a cmp $b } @bred), "\n";
 print join (" ", sort { lc($a) cmp lc($b) } @bred), "\n";
 print join (" ", sort { my $c = lc($a); my $d = lc($b); $c cmp $d } @bred),
 "\n";
 % 
 
 -- 
 Игорь Цеглевский
 --- ifmail v.2.12.os.sensi
  * Origin: живу я тут... (2:5030/266@fidonet)
 
 

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