You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
385 B
26 lines
385 B
#!/usr/bin/perl |
|
|
|
$/ = ""; # Eat a paragraph at once. |
|
while(<STDIN>) { |
|
chop; |
|
s/\n/ /gm; |
|
if (/^=head1 /) { |
|
$name = 0; |
|
} elsif ($name) { |
|
if (/ - /) { |
|
s/ - .*//; |
|
s/,\s+/,/g; |
|
s/\s+,/,/g; |
|
s/^\s+//g; |
|
s/\s+$//g; |
|
s/\s/_/g; |
|
push @words, split ','; |
|
} |
|
} |
|
if (/^=head1 *NAME *$/) { |
|
$name = 1; |
|
} |
|
} |
|
|
|
print join("\n", @words),"\n"; |
|
|
|
|