ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artur Penttinen                      2:5020/400     14 Aug 2000  09:25:29
 To : Igor Nikolaev
 Subject : Re: Перл! помощь need!
 -------------------------------------------------------------------------------- 
 

 Igor Nikolaev <Igor.Nikolaev@f266.n5030.z2.fidonet.org> wrote:
 
 IN> Artur Penttinen <artur@niif.spb.su> wrote:
 >>>>> name1 - сумма всех цифирей для name1
 >>>>> name2 - сумма всех цифирей для name2
 >>>>> name3 - сумма всех цифирей для name3
 >>>>     $hash{$k} += $v;
 >> IN> imho цифири просили, да?
 >>   И?
 IN> 
 IN> Hу вот сумму цифирей и считай ;-)
 IN> 
 IN> Тебе split или unpack больше нравятся?
 
   А у меня не считалось?
 
           WBW, Artur
 
   PS. Код был таков:
     open(F,"file") or die $!;                                                   
 
     while (<F>) {                                                               
 
       my ($k,$v) = split(/\s+/);                                                
 
       $hash{$k} += $v;                                                          
 
     }                                                                           
 
     close(F) or die $!; 
 
     Где ошибка?
 
 -- 
 Слова, которыми он меня оскорблял,
 повторять не буду - их даже бумага не стерпит...
 
 --- ifmail v.2.15dev5
  * Origin: Bits & Bobs Inc. (2:5020/400)
 
 

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