projects
/
oweals
/
openssl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Tolerate -----BEGIN PKCS #7 SIGNED DATA----- header lines as used by some
[oweals/openssl.git]
/
util
/
extract-names.pl
1
#!/usr/bin/perl
2
3
$/ = ""; # Eat a paragraph at once.
4
while(<STDIN>) {
5
chop;
6
s/\n/ /gm;
7
if (/^=head1 /) {
8
$name = 0;
9
} elsif ($name) {
10
if (/ - /) {
11
s/ - .*//;
12
s/,\s+/,/g;
13
s/\s+,/,/g;
14
s/^\s+//g;
15
s/\s+$//g;
16
s/\s/_/g;
17
push @words, split ',';
18
}
19
}
20
if (/^=head1 *NAME *$/) {
21
$name = 1;
22
}
23
}
24
25
print join("\n", @words),"\n";
26