Parent Directory | Revision Log
branched humanistika at r263
1 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
4 | use TDB_File; |
5 | use Fcntl; # for O_RDWR |
6 | |
7 | my $tdb_file=shift @ARGV; |
8 | if (! $tdb_file) { |
9 | print "usage: $0 [tdb file]\n"; |
10 | exit 1; |
11 | } |
12 | |
13 | my %tdb_file; |
14 | tie %tdb_file, 'TDB_File', $tdb_file, TDB_DEFAULT, O_RDWR, 0644; |
15 | foreach (sort keys %tdb_file) { |
16 | print "$_\t",$tdb_file{$_},"\n"; |
17 | } |
18 | untie %tdb_file; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.1 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |