Skip to main content
Revision 3e35b3a1a317d910e87dab1c832d0678a790a8f5 authored by cvs2svn on 15 March 2004, 23:02:56 UTC, committed by cvs2svn on 15 March 2004, 23:02:56 UTC
This commit was manufactured by cvs2svn to create tag
'LEVITTE_before_const'.
3 parent s ec37635 + dfeab06 + 15403de
Raw File
extract-names.pl
#!/usr/bin/perl

$/ = "";			# Eat a paragraph at once.
while(<STDIN>) {
    chop;
    s/\n/ /gm;
    if (/^=head1 /) {
	$name = 0;
    } elsif ($name) {
	if (/ - /) {
	    s/ - .*//;
	    s/,[ \t]+/,/g;
	    s/^[ \t]+//g;
	    s/[ \t]+$//g;
	    push @words, split ',';
	}
    }
    if (/^=head1 *NAME *$/) {
	$name = 1;
    }
}

print join("\n", @words),"\n";
back to top