ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     14 May 2002  13:26:14
 To : Lishtovny Denis
 Subject : Re: нужен алгоритм или как сделать двумерный массив
 -------------------------------------------------------------------------------- 
 

 Lishtovny Denis <lishtovny@rtsoft.msk.ru> wrote:
 
 > Всем привет.
 > вот такая задача:
 > есть файл (строк 100000-200000):
 
 my %amount = qw();
 while (<DATA>) {
   my ($ip, $rx, $tx) = (split /\s+/)[0, 2, 3];
   $amount{$ip}[0] += $rx;
   $amount{$ip}[1] += $tx;
 }
 printf "%-.16s RX: %i TX: %i\n", $_, @{$amount{$_}} foreach keys %amount;
 
 __DATA__
 192.168.251.1 209.144.34.3 360 0 6 0 3758 25 6 1 24603 48488565 48546166 11
 64.157.4.81 195.34.37.40 809 0 16 0 25 3757 6 9 24604 48491073 48542181 11
 192.168.251.1 64.157.4.81 600 0 15 0 3757 25 6 1 24605 48491073 48539106 11
 
 -- 
 VP992-RIPE
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    нужен алгоритм или как сделать двумерный массив   Lishtovny Denis   14 May 2002 13:03:35   Re: нужен алгоритм или как сделать двумерный массив   Vladimir Podgorny   14 May 2002 13:26:14   Re: нужен алгоритм или как сделать двумерный массив   Igor S Chencov   14 May 2002 13:40:35