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