home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / perl / 5599 < prev    next >
Encoding:
Internet Message Format  |  1992-08-29  |  1.9 KB
  1. Path: sparky!uunet!wupost!usc!news!lsi!mhost!up41!aspin
  2. From: aspin@lsil.com (David Aspinwall 7842)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: fast way to get number of elements in an assoc array?
  5. Message-ID: <1992Aug29.011345.24106@lsil.com>
  6. Date: 29 Aug 92 01:13:45 GMT
  7. References: <1992Aug27.152838.17427@news.eng.convex.com>
  8. Sender: news@lsil.com (news caster)
  9. Reply-To: aspin@lsil.com
  10. Organization: LSI Logic Corporation
  11. Lines: 52
  12. Nntp-Posting-Host: up41
  13. X-Newsreader: Tin 1.1 PL5
  14.  
  15. Tom Christiansen (tchrist@convex.COM) wrote:
  16. : Um, that doesn't tell you how many keys are in the array, just 
  17. : how full the hashtable is.  You have to do something more like
  18. : 
  19. :     $count++ while each %array;
  20.  
  21. I wrote a program to try various ways of doing this,
  22. including the one above, and get several different results.
  23. Can anyone explain this to me?
  24. Here's the program:
  25.  
  26.  
  27. #!/usr/up/sun4bin/perl
  28.  
  29. open(IN, "head -100 /usr/dict/words|");
  30. while (<IN>) {
  31.     $words{$_} = $nlines++;
  32. }
  33. close(IN);
  34. print "read $nlines lines\n";
  35.  
  36. &try('$n = keys(%words)');
  37. &try('$n = 0; while (each %words) { $n++; }');
  38. &try('$n = 0; $n++ while each %words;');
  39. &try('$n = 0; $n++ while (each %words);');
  40. &try('$n = 0; $n++ while (($w,$v) = (each %words));');
  41. &try('$n = 0; while (($w,$v) = each %words) { $n++; }');
  42. &try('$n = 0; while (($w,$v) = (each %words)) { $n++; }');
  43.  
  44.  
  45. sub try {
  46.     local ($cmd) = @_;
  47.     local ($n);
  48.     eval($cmd);
  49.     print "i get $n from\t$cmd\n";
  50. }
  51.  
  52.  
  53.  
  54. And here is the output:
  55.  
  56. read 100 lines
  57. i get 100 from    $n = keys(%words)
  58. i get 13 from    $n = 0; while (each %words) { $n++; }
  59. i get 86 from    $n = 0; $n++ while each %words;
  60. i get 13 from    $n = 0; $n++ while (each %words);
  61. i get 86 from    $n = 0; $n++ while (($w,$v) = (each %words));
  62. i get 100 from    $n = 0; while (($w,$v) = each %words) { $n++; }
  63. i get 100 from    $n = 0; while (($w,$v) = (each %words)) { $n++; }
  64.  
  65. --
  66.         -- David Aspinwall    aspin@lsil.com    408-433-7842
  67.