home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / fj / lang / perl / 172 < prev    next >
Encoding:
Internet Message Format  |  1993-01-28  |  1.1 KB
  1. Path: sparky!uunet!ccut!news.u-tokyo.ac.jp!wnoc-tyo-news!sh.wide!fgw!fdm!koukan-gw(Cnews)!ki!hayashi
  2. From: hayashi@koukan.fujitsu.co.jp (This is 'Ki'.  Hai genki?)
  3. Newsgroups: fj.lang.perl
  4. Subject: how to save assoc array
  5. Message-ID: <HAYASHI.93Jan28194259@ki.koukan.fujitsu.co.jp>
  6. Date: 28 Jan 93 10:42:59 GMT
  7. Sender: news@koukan.fujitsu.co.jp (koukan-gw Cnews)
  8. Distribution: fj
  9. Organization: FUJITSU LTD., Switching Systems Software Div., Kawasaki Japan
  10. Lines: 31
  11. Nntp-Posting-Host: ki
  12. X-Bytes: 645
  13.  
  14. $@$3$s$K$A$ONS!wIY;NDL$G$9!#(J
  15.  
  16. perl$@$G$G$C$+$$O"A[G[Ns$r%U%!%$%k$K%;!<%V$7$F$"$H$G$H$j$@$7$F(J
  17. $@;H$$$?$$$N$G$9$,8zN($N$h$$J}K!$O$J$$$G$7$g$&$+!#(J
  18.  
  19. $@$h$m$7$/$*4j$$$7$^$9!#(J
  20.  
  21.  
  22. $@8=>u$O0J2<$N$h$&$K$7$F$^$9(J$@$,7k9=;~4V$r?)$&$b$N$G!#(J^^;
  23.  
  24.  
  25. <$@=q$-9~;~(J>
  26.  
  27. print OUT join("\n",%assoc_array);
  28.  
  29.  
  30. <$@FI$_=P$7;~(J>
  31.  
  32. while($key=<IN>) {
  33.  chop $key;
  34.  $value=<IN>; chop $value;
  35.  $assoc_array{$key}=$value;
  36. }
  37.  
  38.  
  39. --
  40. :'''''''''''''''''''''''''''''''''''''''''''''''':
  41. : $@NS(J    $@7i(J    JE3SUF/1, JJ3YLW/1-ATR hamclub   :
  42. :               (1975$@!A(J)  (1989$@!A(J)               :
  43. :................................................:
  44.