4 $progname = basename($0);
9 die "Filename missing\n" if !@ARGV;
10 die "$ARGV[0]: $!\n" if !-f $ARGV[0];
12 if ($progname =~ /catdb/) {
13 tie %db, 'DB_File', $ARGV[0], O_RDONLY, 0664, $DB_HASH;
15 elsif ($progname =~ /catgdbm/) {
16 tie %db, 'GDBM_File', $ARGV[0], GDBM_READER, 0644;
19 die "Called for unknown db type\n";
24 foreach $key (@ARGV) {
26 if (exists $db{$key}) {
27 print "$key:\n$db{$key}\n";
30 print "*UNDEFINED*\n";
35 while( ($key,$val) = each %db ) {
37 print "$key:\n$val\n";