projects
/
oweals
/
openssl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
make RSA blinding thread-safe
[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/[ \t,]+/ /g;
13
push @words, split ' ';
14
}
15
}
16
if (/^=head1 *NAME *$/) {
17
$name = 1;
18
}
19
}
20
21
print join("\n", @words),"\n";
22