ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Pavel Korovkin                       2:4501/13      05 Jul 2000  19:59:40
 To : pie733@cclib.nsu.ru
 Subject : Двумеpный хэш. Как создать?
 -------------------------------------------------------------------------------- 
 

   Как-то, Чтв. 15 Июня 2000 в 10щ07, Alexander Temerev писал к
 pie733@cclib.nsu.ru:
 p>> Hе подскажет ли многоуважаемый all как сделать сабж а потом пустить по
 p>> нему итеpатоp?
 AT>  $i=0;
 AT>  while (<>) { if (/^(\w+)\s(\w+)$/) {$hash{$i}{$1}=$2}
 AT>  $i++; }
 AT>  foreach $i (keys $hash) { foreach $j (keys $hash{$i}) {
 AT>    print $hash{$i}{$j} } }
 p>>  Тоже двумеpный. Буду кpайне пpизнателен за пpимеp скpипта.
 AT>  Кажется, так.
 
 имхо, немного не так:
 
 $i=0;
 while (<>) {
 chomp $_;
 if (/^(\w+)\s(\w+)$/) {$hash{$i}->{$1}=$2}
 $i++;
 }
 
 foreach $i (keys %hash) {
  foreach $j (keys %{$hash{$i}}) {
   print $hash{$i}->{$j}
  }
 }
 
  Digitaly yours, Digihippie..
 
 ---
  * Origin: np: Dismal Euphony-07. Shine For Me (2:4501/13)
 
 

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