projects
/
onak.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
cscvs to tla changeset 1
[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
}