tools/find-missing.pl

   1 use strict;
   2 use warnings;
   3 use Smart::Comments;
   4
   5 sub main {
   6     while (defined(my $rel = <>)) {
   7         chomp $rel;
   8         my $saved = rel2saved($rel);
   9
  10         if (!-e $saved) {
  11             print "? $rel\n";
  12         }
  13     }
  14 }
  15
  16 sub rel2saved {
  17     my $rel = shift;
  18
  19     $rel =~ tr/./_/;
  20     return "./dot-files/$rel";
  21 }
  22
  23 main();