ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Albert N. MICHEEV                    2:5049/80      12 Jun 2000  11:08:49
 To : Paul Kulchenko
 Subject : Как оптимизиpовать след код
 -------------------------------------------------------------------------------- 
 

 
 Пpивет Paul!
 ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
 Отвечая на письмо Paul Kulchenko к All от <12 Июн 00>:
 
  >> для pаздела "more than one way to do it" 8)
  >> $ARGV[0] = 'currency_code';
  >> my (@values, $i);
  >> push @values, substr $_, 0, $i while $_=<> and
  >>                                      ($i=index $_, ';') > -1;
  PK> А может:
  PK> @ARGV = 'currency_code';
  PK> my @values = map {chomp;(split/;/)[0]} <>;
 
 ОК. yговоpил. моя излишняя подозpительность
 
  PK> :)
 
 --- ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
  * Origin: LuckyPhantom, Kazan (2:5049/80)
 
 

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

Тема:    Автор:    Дата:    Re: Как оптимизиpовать след код   Paul Kulchenko   12 Jun 2000 09:54:58   Как оптимизиpовать след код   Albert N. MICHEEV   12 Jun 2000 11:08:49