Parent Directory | Revision Log
new instance for cpi
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; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.1 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |