blob: 2dcde0b1cc17f59dcc2e8784204f6e6c9d1be991 (
plain)
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);
|