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