prtcheckmissing



    1 #!/usr/bin/perl
    2 #
    3 # $Id: prtcheckmissing,v 1.1 2003/10/27 15:26:50 opel Exp $
    4 
    5 use warnings;
    6 use strict;
    7 
    8 local $/ = ""; # read files paragraph-wise; see ``perldoc perlvar''
    9 
   10 open my $fh, "< /var/lib/pkg/db"
   11   or die "Couldn't open package database!\n";
   12 
   13 while(<$fh>) {
   14   my ($pkg_name, $pkg_version, @pkg_file) = split /\n/;
   15   my @missing = grep ! -e "/$_", @pkg_file;
   16   next if not @missing;
   17 
   18   print map "/$_ $pkg_name\n", @missing;
   19 }         
   20  
   21 close($fh);