home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / man.shar / man / catwhatis < prev    next >
Encoding:
Text File  |  1991-03-04  |  565 b   |  23 lines
  1. #!/usr/local/bin/perl
  2. #
  3. # catwhatis -- cat out the whatis database(s)
  4.  
  5. for $manroot (split(/:/, shift || $ENV{'MANPATH'} || '/usr/man')) {
  6.     if (!dbmopen(manroot, "$manroot/whatis", undef)) {
  7.     warn "Can't dbmopen $manroot/whatis: $!\n";
  8.     next;
  9.     }
  10.     print "$manroot:\n";
  11.     while (($key,$value) = each %manroot) {
  12.     for (split(/\002/, $value)) {
  13.         if (/\001/) {
  14.         ($cmd, $page, $section, $desc) = split(/\001/);
  15.         printf "%-30s - %s\n", "$cmd ($section)", $desc;
  16.         } else {
  17.         printf "%-30s > %s\n", $key, $_;
  18.         } 
  19.     } 
  20.     } 
  21.     dbmclose(manroot);
  22. }
  23.