Parent Directory | Revision Log
new instance for cpi
1 | dpavlin | 232 | #!/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 |