1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
use strict;
use warnings;
use Dpkg::Version;
die "Syntax: $0 <pkg>" unless (@ARGV == 1);
my $want_pkg = $ARGV[0];
print "$want_pkg:\n";
$/ = ''; # slurp paragraphs
my @packages_files = sort (glob ("dists/*/*/*/Packages"), glob ("dists/*/*/*/Sources.gz"));
foreach my $packages (@packages_files) {
my ($dists, $dist, $component, $arch) = split m!/!, $packages;
$arch =~ s/^binary-//;
if ($packages =~ /\.gz$/) {
open P, '-|', 'gunzip', '-c', $packages or die "$packages: $!";
} else {
open P, $packages or die "$packages: $!";
}
while (<P>) {
my ($pkg) = /^Package: (.+)/m or die "$packages: paragraph without Package: $_";
my ($ver) = /^Version: (.+)/m or die "$packages: paragraph without Version: $_";
next unless ($pkg eq $want_pkg);
printf "%-20s %-4s %-7s %s\n",
$dist, $component, $arch, $ver;
}
close P;
}
|
