home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / rbemx144.zip / ruby-1.4.4 / sample / occur.pl < prev    next >
Text File  |  1998-01-16  |  118b  |  10 lines
  1. while (<>) {
  2.     for (split(/\W+/)) {
  3.     $freq{$_}++;
  4.     }
  5. }
  6.  
  7. for (sort keys %freq) {
  8.     print "$_ -- $freq{$_}\n";
  9. }
  10.