gpgstats-0.0.2/filt.pl

   1 #!/usr/bin/perl
   2
   3 @keyfile=<>;
   4
   5 $count=0;
   6
   7 while ($count<scalar(@keyfile)) {
   8         if ($keyfile[$count] =~ /^P/ &&
   9                 $keyfile[$count+1] =~ /^N/ &&
  10                 $keyfile[$count+2] =~ /^S/ &&
  11                 $keyfile[$count+3] =~ /^P/) {
  12                 $count = $count + 3;
  13         } else {
  14                 print $keyfile[$count++];
  15         }
  16 }