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.
  • [get | view] (2013-08-13 16:32:46, 0.5 KB) [[attachment:count.pl]]
 All files | Selected Files: delete move to page copy to page

You are not allowed to attach a file to this page.