bin/catgdbm

   1 #!/usr/bin/perl
   2
   3 use File::Basename;
   4 $progname = basename($0);
   5
   6 use DB_File;
   7 use GDBM_File;
   8
   9 die "Filename missing\n" if !@ARGV;
  10 die "$ARGV[0]: $!\n" if !-f $ARGV[0];
  11
  12 if ($progname =~ /catdb/) {
  13         tie %db, 'DB_File', $ARGV[0], O_RDONLY, 0664, $DB_HASH;
  14 }
  15 elsif ($progname =~ /catgdbm/) {
  16         tie %db, 'GDBM_File', $ARGV[0], GDBM_READER, 0644;
  17 }
  18 else {
  19         die "Called for unknown db type\n";
  20 }
  21 shift;
  22
  23 if (@ARGV > 0) {
  24         foreach $key (@ARGV) {
  25                 print "-"x78, "\n";
  26                 if (exists $db{$key}) {
  27                         print "$key:\n$db{$key}\n";
  28                 }
  29                 else {
  30                         print "*UNDEFINED*\n";
  31                 }
  32         }
  33 }
  34 else {
  35         while( ($key,$val) = each %db ) {
  36                 print "-"x78, "\n";
  37                 print "$key:\n$val\n";
  38         }
  39 }
  40
  41 untie %db;
  42 exit 0;