ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Orlovsky Alexander                   2:5020/400     02 Nov 2002  18:07:52
 To : All
 Subject : сортировка хэша
 -------------------------------------------------------------------------------- 
 

 Задрался я тут, может башка плохо варит или еще чего, но в общем вот есть такой
 сырец:
 #!/usr/bin/perl
 ####################
 use strict;
 #my $files;
 #@files = glob($cmd);
 my %Hcaps = ();
 
 foreach my $fname (@ARGV) {
     print "Processing ". $fname . "\n";
     open (FILE, "< $fname") or print STDERR "Warning: can't open file $fname";
     
     while(<FILE>) {
   <..cut...>
   здесь мы забиваем хэш
 
   $Hcaps{$VALUE}{$EMAIL}++;
   }
     }
 }    
     for my $value (sort %Hcaps) {
   if ( exists $Hcaps{$value}{"some\@ema.il"} ) {
       print "$value (some\@ema.il): " . 
    $Hcaps{$value}{"some\@ema.il"} . "\n";
       }
   }   
 
 делаю
 ./proga  file.log
 получаю:
 Processing tnpp_out.log      
 01051338 (some\@ema.il): 1 
 01051461 (some\@ema.il): 1 
 01051484 (some\@ema.il): 7 
 01051578 (some\@ema.il): 10
 01051620 (some\@ema.il): 1 
 01051947 (some\@ema.il): 4 
 
 Может все и правильно, но мне нужно отсортировать  по значениям
 (10,7,4,1,1,1)... Что делать? Подскажите, плиз!...
 З.Ы.
 Hа возможный вопрос зачем мне $EMAIL в исходнике, все равно мол сравниваешь с
 константой, отвечу, что e-mail могут быть разные и поним возможно тоже нужна
 будет статистика, просто я пока это в проге не трогаю, т.к. надо пока с
 вышесказанным разобраться
 
 З.З.Ы.
 Может я и торможу в конце недели, но помогите.... У меня с многомерными хешами
 сложные отношения ;-) 
 --- ifmail v.2.15dev5
  * Origin: Ye 'Ol Disorganized NNTPCache groupie (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    сортировка хэша   Orlovsky Alexander   02 Nov 2002 18:07:52   Re: сортировка хэша   Artem Chuprina   02 Nov 2002 18:44:16