ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Denis Shaposhnikov                   2:550/5068     20 Jan 2001  00:42:28
 To : Alexey Luckyanchikov
 Subject : Re: Работа с хешами
 -------------------------------------------------------------------------------- 
 

 >>>>> "Alexey" == Alexey Luckyanchikov <alexl@hobbiton.org> writes:
 
  Alexey>   foreach $host (@readers) {
  Alexey>      if (/($host)\sgroup\s(\S+)\s(\d+)/) {
  Alexey>       $arts{$1}{$2}+=$3;
  Alexey>      }
  Alexey>   }
  Alexey> } Далее нужно перебрать все элементы %arts. Как это можно
  Alexey> сделать?
 
 foreach my $a (values %arts) {
   foreach (keys %$a) {
   }
 }
 
 Что-нибудь вроде.
 
 -- 
 DSS5-RIPE DSS-RIPN 2:550/5068@fidonet 2:550/5069@fidonet
 mailto:dsh@vlink.ru http://neva.vlink.ru/~dsh/
 --- Gnus/5.0807 (Gnus v5.8.7) XEmacs/21.1 (Crater Lake)
  * Origin: Solar system, Jupiter (2:550/5068@fidonet)
 
 

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