user-md5sum.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use TokyoCabinet;
   6 use Data::Dump qw(dump);
   7
   8 my ($user,$path) = @ARGV;
   9 die "usage: $0 u2001 [path]\n" unless $user;
  10
  11 my $dir = (getpwnam($user))[7];
  12
  13 die "$dir: $!" unless -d $dir;
  14
  15 my $md5 = "$dir/.md5";
  16
  17 die "$md5: $!\n" unless -r $md5;
  18
  19 my %h;
  20 tie %h, "TokyoCabinet::HDB", $md5 || die $!;
  21
  22 if ( $path ) {
  23         print $h{$path}, "  $path\n";
  24 } else {
  25
  26         while( my($k,$v) = each(%h) ) {
  27                 $k = "$dir/$k" if $ENV{FULL};
  28                 print "$v  $k\n";
  29         }
  30
  31 }