projects
/
onak.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a7e4353ef709165b33e3fa6c6dd7b0f9d473f6ee
[onak.git]
/
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
}