ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Babanov                    2:5020/1978.3  29 Aug 2000  23:22:28
 To : Albert N. MICHEEV
 Subject : Re: help
 -------------------------------------------------------------------------------- 
 

 
  AM>     sort {
  AM>         $cmp = @$a[1] cmp @$b[1];
  AM>         for( $i = 1; $i <= $fields and !$cmp; $i++ )
  AM>         { $cmp = $$a[$i+1] <=> $$b[$i+1] }
  AM>         $cmp;
  AM>     }
 
 Hе, это тоже как-то слишком по сишному ;Р
 
  AB>> foreach $line (@lines) { print $line, "\n"; };
  AM> print join "\n", @lines, '';
 
 А вот это хорошо, я и проглядел. Жаль, память будет жрать.
 И так этот двойной map кучку затребует, а тут еще join все
 слепит перед печатью...
 
  AB>> ЗЫ: Кстати, бyдy очень благодаpен, если кто поможет из связки for/if
  AB>> yбpать хвосты моей нелегкой сишной наследственности =8)
  AM> а ты не тяни это наследство за yши 8) дети бyдyт благодаpны
 
 А куда от него денешься - большую часть софта всерно на сях
 приходится писать, нет у Перла std и приличного отладчика.
 
 CYa!!!
 
 ЪДВїЪДВВВДДДщщъъ ЪДВВВДї ЪїЪДВДДДДДДДДщщъъ   ЪДДДД 2:5020/1978.3 ДДДДї
 іВіАґДЕ ґBabanov іВі ґВі іАґВіST BERSERKER   і babanov@earthlink.net і
 ... "I'll be back!" / (c) B-)
 ---
  * Origin: Our governor can beat up your governor! (2:5020/1978.3)
 
 

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

Тема:    Автор:    Дата:    help   Dmitry Tyutyunnikov   27 Aug 2000 22:26:00   Re: help   Andrey P. Tepaykin   28 Aug 2000 08:52:54   help   Dmitry Tyutyunnikov   29 Aug 2000 23:18:00   Re: help   Alexander Babanov   29 Aug 2000 19:07:10   help   Albert N. MICHEEV   30 Aug 2000 06:01:58   Re: help   Alexander Babanov   29 Aug 2000 23:22:28   Re: help   Dmitriy Goldobin   30 Aug 2000 19:20:34