gal2/bin/gal-mj-map

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Digest::SHA;
   7 use File::Find;
   8
   9 STDOUT->autoflush(1);
  10
  11 find({
  12         wanted => sub {
  13                 my $name = $File::Find::name;
  14                 $name =~ s{^\./}{};
  15                 $name =~ m{^\d} or return;
  16                 $name =~ m{\.jpe?g$}i or return;
  17                 -f $name or return;
  18                 print "$name\t";
  19
  20                 my $sha = Digest::SHA->new(1);
  21                 $sha->addfile($name) or die "Cannot hash $name\n";
  22                 my $id = substr($sha->hexdigest, 0, 16);
  23                 print "$id\n";
  24         },
  25         no_chdir => 1,
  26 }, ".");