authors

#!/usr/bin/perl -w

# This script will summarize authors in a form suitable for including in
# the AUTHORS section of the LWP manpage.

use strict;

open(AUTHORS, "AUTHORS") || die;

my %seen;

while (<AUTHORS>) {
    chomp;
    if (/^</) {
	# only email address available
	s/^<//;
	s/>$//;
	s/\@.*//;
    }
    else {
	s/\s+<.*//;
    }
    next if $seen{$_}++;
    print "$_,\n";
}