ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      23 Jun 2004  06:40:52
 To : Artem Chuprina
 Subject : Re: Хитрая сортировка
 -------------------------------------------------------------------------------- 
 

 
 
  NP>>  Есть строки, часть из них русскими буквами,
  NP>> а часть английскими.
  NP>>  Hеобходимо отсортировать так, чтобы снчал по порядку
  NP>> шли _русские_, а затем по порядку _английские_.
 
  AC> Пользуемся тем, что строка из английских букв состоит целиком из
  AC> символов ASCII.
 
  AC> sub is_english ($)
  AC> {
  AC>         if ($_[0] =~ /[^\x00-\x7f]/) { return 0; }
  AC>         else { return 1; }
  AC> }
  AC> и
  AC> sort { is_english($a) <=> is_english($b) || $a cmp $b } @lines;
 
 Спасибо.
 
 * Hам с Вами лучше бодрствовать, мадам...
 -- Hиколай
 ----------------------------------------------------------------------
 ---
  * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
 
 

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