openssl/util/extract-names.pl

25 lines
362 B
Perl
Raw Normal View History

#!/usr/bin/perl
$/ = ""; # Eat a paragraph at once.
while(<STDIN>) {
chop;
s/\n/ /gm;
if (/^=head1 /) {
$name = 0;
} elsif ($name) {
if (/ - /) {
s/ - .*//;
2003-06-11 19:44:40 +00:00
s/,[ \t]+/,/g;
s/^[ \t]+//g;
s/[ \t]+$//g;
2003-06-11 19:44:40 +00:00
push @words, split ',';
}
}
if (/^=head1 *NAME *$/) {
$name = 1;
}
}
print join("\n", @words),"\n";