home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / pxref < prev    next >
Encoding:
Text File  |  1991-07-22  |  621 b   |  35 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # pxref -- perl cross referencer
  4. # Tom Christiansen <tchrist@convex.com>
  5.  
  6.  
  7.  
  8. format STDOUT = 
  9. @<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  10. $var, $lines
  11. ~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  12.         $lines
  13. .
  14.  
  15.  
  16. $ARGV[0] eq '-n' && (shift, $number++);
  17.  
  18. while (<>) {
  19.     while (/([\@%\$*&][\w']+)/g) {
  20.     $vars{$1} .= "$. ";
  21.     } 
  22. } 
  23.  
  24. @keys = $number ? sort byvallen keys %vars : reverse sort keys %vars;
  25.  
  26.  
  27. foreach $var (@keys) {
  28.     $lines = $vars{$var};
  29.     write;
  30. } 
  31.  
  32. sub byvallen {
  33.     length($vars{$b}) <=> length($vars{$a});
  34. } 
  35.