/[webpac]/trunk/tools/dump_gdbm.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /trunk/tools/dump_gdbm.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 191 - (hide annotations)
Sat Nov 29 20:11:07 2003 UTC (20 years, 4 months ago) by dpavlin
File MIME type: text/plain
File size: 305 byte(s)
dump content of gdbm file

1 dpavlin 191 #!/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;

Properties

Name Value
cvs2svn:cvs-rev 1.1
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26