home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / perl / 5380 < prev    next >
Encoding:
Internet Message Format  |  1992-08-19  |  1.2 KB
  1. Path: sparky!uunet!ogicse!hp-cv!sdd.hp.com!usc!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: What's the best idiom for storing keyed records?
  5. Message-ID: <1992Aug19.071854.8942@netlabs.com>
  6. Date: 19 Aug 92 07:18:54 GMT
  7. Article-I.D.: netlabs.1992Aug19.071854.8942
  8. References: <l90cclINNrjo@jethro.Corp.Sun.COM> <1992Aug19.004516.12825@news.eng.convex.com>
  9. Sender: news@netlabs.com
  10. Organization: NetLabs, Inc.
  11. Lines: 20
  12. Nntp-Posting-Host: scalpel.netlabs.com
  13.  
  14. In article <1992Aug19.004516.12825@news.eng.convex.com> tchrist@convex.COM (Tom Christiansen) writes:
  15.  
  16. : Make sure you remember that $parent{'adam'} is 'adam'. :-) With a
  17. : little care, this approach can be used to implement general graph
  18. : traversal algorithms as well.
  19.  
  20. Er, uh, I have it on pretty good authority (Luke, in actual fact :-) that
  21. $parent{'adam'} eq 'god'.  I'll leave to you to figure out $parent{'god'}...
  22.  
  23. Hmm, I guess in my theology that makes $sibling{'adam'} eq 'jesus'...  :-)
  24. That makes Jesus his own great, great, great...lessee...great**72 uncle
  25. or so.  Better check that one out:
  26.  
  27.     $ perl -e 'print $sibling{ eval "\$parent{" x 73 . "jesus" . "}" x 73 }'
  28.     jesus
  29.     $
  30.  
  31. Yep.  :-)
  32.  
  33. Larry
  34.