ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Pavel Korovkin                       2:4501/13      14 Aug 2000  00:03:32
 To : Alexander Gaiduk
 Subject : Перл! помощь need!
 -------------------------------------------------------------------------------- 
 

 
 AG> name1 86784
 AG> name2 4567
 AG> надо по этому файлу родить отчетик, типа:
 AG> name1 - сумма всех цифирей для name1
 AG> name2 - сумма всех цифирей для name2
 AG> name3 - сумма всех цифирей для name3
 
 while (<>) {
  ($a,$b) = split /\s/,$_;
  $names{$a} += $b;
 }
 print map{"$_ - $names{$_}\n"} keys %names;
 
  Digitally yours, Digihippie..
 
 ---
  * Origin: np: The Neverhood-The Lab Room At Bottom Of Lake (2:4501/13)
 
 

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

Тема:    Автор:    Дата:    Перл! помощь need!   Alexander Gaiduk   11 Aug 2000 12:11:42   Re: Перл! помощь need!   Artur Penttinen   11 Aug 2000 12:32:47   Перл! помощь need!   Pavel Korovkin   14 Aug 2000 00:03:32