Attachment 'count.pl'
Download 1 #!/usr/bin/perl
2 # parse output of 'dak rm -Rn qpid-cpp'
3 use strict;
4 use warnings;
5
6 use feature 'say';
7
8 my %srcpkg;
9
10 # pre
11 while (<>) {
12 last if /Checking reverse dependencies.../;
13 }
14
15 while (<>) {
16 next if /^#/;
17 last if /Dependency problem found./;
18
19 # match source pkg name
20 next unless /([\w-]+):/;
21
22 $srcpkg{$1} = 1;
23 }
24
25 say 'total number of reverse dependencies (srcpkg): ', scalar keys %srcpkg;
26 #foreach my $pkg (sort keys %srcpkg) {
27 # say $pkg;
28 #}
Attached Files
To refer to attachments on a page, use attachment:filename, as shown below in the list of files. Do NOT use the URL of the [get] link, since this is subject to change and can break easily.You are not allowed to attach a file to this page.