17 lines
324 B
Plaintext
Executable File
17 lines
324 B
Plaintext
Executable File
#! /usr/bin/perl5
|
|
eval 'exec perl5 -S $0 "$@"'
|
|
if 0;
|
|
|
|
push(@INC, "/usr/share/lib/perl5/sgi_lib");
|
|
use MDBM_File;
|
|
use Fcntl;
|
|
|
|
for (@ARGV) {
|
|
tie(%db, MDBM_File, $_, O_RDONLY, 0) ||
|
|
die "Unable to open destination database file: $_\n";
|
|
foreach $key (keys %db) {
|
|
print "$key: ". $db{$key} . "\n";
|
|
}
|
|
untie(%db);
|
|
}
|