home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / perl / 5799 < prev    next >
Encoding:
Text File  |  1992-09-09  |  1.8 KB  |  75 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!caen!destroyer!ubc-cs!dhami
  3. From: dhami@cs.ubc.ca (Mandeep S Dhami)
  4. Subject: Re: emulating mulit-dimentional arrays?
  5. Message-ID: <1992Sep9.174452.18421@cs.ubc.ca>
  6. Sender: usenet@cs.ubc.ca (Usenet News)
  7. Organization: Computer Science, University of B.C., Vancouver, B.C., Canada
  8. References: <1992Sep9.163329.12565@cbnewse.cb.att.com>
  9. Distribution: usa
  10. Date: Wed, 9 Sep 92 17:44:52 GMT
  11. Lines: 62
  12.  
  13. budnick@cbnewse.cb.att.com (Mary Jo Budnick) writes:
  14.  
  15. > 
  16. >        $name = foo;
  17. >        $index = 0;
  18. >        $time{$name, $index} = "11:00:00";
  19. > 
  20. > 
  21. ...
  22. >Now, how do I later retrieve all of the names and process all of
  23. >the times for that name?
  24. > 
  25. >If I do:
  26. > 
  27. >        foreach $i (keys(%time)) {
  28. >                print "key = $i, time = $time{$key}\n";
  29. >        }
  30. > 
  31. > 
  32. >I get:
  33. > 
  34. >        key = foo1
  35. >
  36. ...
  37. >What I want to do is get "foo" and then get all of the times for
  38. >foo, indexed by 0,1, . . .  
  39. ...
  40.  
  41. try something like:
  42.  
  43. $name=foo;
  44. $index=0;
  45. $time{"$name:$index"} = "11:00:00";
  46. ...
  47.  
  48. and then:
  49. foreach (sort(keys(%time))) {
  50.   split(/:/);
  51.   print "name=$_[0] index=$_[1] time=$time{$_}\n";
  52. }
  53.  
  54. Or to get foo only once try:
  55. $last='';
  56. foreach (sort(keys(%time))) {
  57.   split(/:/);
  58.   ($last ne $_[0]) && print "Name ",$last=$_[0],":\n";
  59.   print "\t index=$_[1] time=$time{$_}\n";
  60. }
  61.  
  62. Or you may use aliasing by local(*array) to make it quicker.
  63. (See FAQ for an example).
  64.  
  65. This will be sorted. This, of course, assumes that : will never occur
  66. in keys, you can use something like \377 otherwise. OR You may use ' '
  67. and split; instead ... (perl you know)
  68.  
  69. Mandeep
  70. __________________________________________________________________
  71. "I'm very brave generally," he went on in a low voice:
  72. "only to-day I happen to have a headache."
  73.                                       -- Lewis Carroll
  74. __________________________________________________________________
  75.