ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : vilfred                              2:5020/400     07 Nov 2001  20:14:55
 To : All
 Subject : хехе, по моему оно работает
 -------------------------------------------------------------------------------- 
 

 
 Привет великомудрому аллу!
 
 типа хеш хешей массивов сделал.
 
 Есть файл:
 
 air,Acmar,one
 air,Acmar,two
 air,Airwell,one
 air,Airwell,two
 air,Ariston,one
 air,Ariston,two
 air,Ariston,three
 air,Ariston,four
 air,Mumbra,one
 air,Mumbra,two
 fridg,Ardor,one
 fridg,Ardor,two
 fridg,Ardor,three
 fridg,Ardo-Young,one
 fridg,Ardo-Young,two
 fridg,Ardo-Young,three
 wei,Tefal,one
 wei,Tefal,two
 wei,Tefal,three
 
 [на самом деле он побольше раз в 300-500 вообще-то]
 
 по нему бегает прога:
 
 #!/usr/bin/perl
 print "content-type: text/html\n\n";
 
 open F, "<email-example1" or die "can open: $!\n"; @mass=<F>; close F;
 
 for $gr(grep{!$_{$_}++} map{/^(.*?),/} @mass){
   for $line(@mass){push @{$hash{$gr}{$1}}, $2 if $line=~m!^$gr,(.*?),
 (.*)!}
 }
 
 print "name hash\tkeys\t\tmassives\n\n";
 for $a(sort keys %hash){
   print "hash $a: \n\t{\n\t";
   for $key(sort keys %{$hash{$a}}){
     #pop @{$hash{$a}{$key}};
     print "'$key' \t => [ ";
     print join " | " => @{$hash{$a}{$key}};
     print " ]\n\t";
   }
   print "}\n";
 }
 
 и на выходе имеем:
 
 name hash  keys    massives
 
 hash air: 
   {
   'Acmar'   => [ one | two ]
   'Airwell'    => [ one | two ]
   'Ariston'    => [ one | two | three | four ]
   'Mumbra'  => [ one | two ]
   }
 hash fridg: 
   {
   'Ardo-Young'  => [ one | two | three ]
   'Ardor'   => [ one | two | three ]
   }
 hash wei: 
   {
   'Tefal'   => [ one | two | three ]
   }
 
 такие вот дела...
 
 Дима
 
 p.s. радуюсь просто :)
 
 -- 
 TEAM [Маньяки]
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

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