home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / MacPerl5 / DumpHelpIndex < prev    next >
Encoding:
Text File  |  1995-10-17  |  282 b   |  16 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}
  2. Exit 0
  3.  
  4. #!perl -s
  5.  
  6. $index = shift @ARGV;
  7.  
  8. dbmopen(%INDEX, $index, 0666) || "Couldn't open index file \"$index\"";
  9.  
  10. print $INDEX{"chomp"}, "\n", $INDEX{"system"}, "\n";
  11.  
  12. for (sort keys %INDEX) {
  13.     printf("%-20s %s\n", $_, $INDEX{$_});
  14. }
  15.  
  16. dbmclose %INDEX;