projects / dragonfly.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 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 |