git.rot13.org Git - webpac/blob - tools/dump_gdbm.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use GDBM_File;
   5
   6 my $gdbm_file=shift @ARGV;
   7 if (! $gdbm_file) {
   8         print "usage: $0 [gdbm file]\n";
   9         exit 1;
  10 }
  11
  12 my %gdbm_file;
  13 tie %gdbm_file, 'GDBM_File', $gdbm_file, &GDBM_READER, 0640;
  14 foreach (sort keys %gdbm_file) {
  15         print "$_\t",$gdbm_file{$_},"\n";
  16 }
  17 untie %gdbm_file;