0byt3m1n1

Path: /data/0/0/6/46/6861/user/7034/cgi-bin/tools/ [ Home ]

File: list-index

#!/usr/bin/perl -w
use strict;

use DB_File;

for my $idx_file (@ARGV) {
    print "Listing '$idx_file':\n";
    my $db = tie my %new_idx, 'DB_File', $idx_file, 0, 0666, $DB_BTREE;
    die "Can't tie $idx_file: $!" unless $db;

    for my $k (keys %new_idx) {
        print "\t$k => ", join(' ', split /$;/, $new_idx{$k}), "\n";
    }
    print "\n";

    untie %new_idx;
}