6 use Data::Dump qw(dump);
8 my ($user,$path) = @ARGV;
9 die "usage: $0 u2001 [path]\n" unless $user;
11 my $dir = (getpwnam($user))[7];
13 die "$dir: $!" unless -d $dir;
15 my $md5 = "$dir/.md5";
17 die "$md5: $!\n" unless -r $md5;
20 tie %h, "TokyoCabinet::HDB", $md5 || die $!;
23 print $h{$path}, " $path\n";
26 while( my($k,$v) = each(%h) ) {
27 $k = "$dir/$k" if $ENV{FULL};