[comp.lang.perl] subroutine to return signature of netnews article ?

emv@math.lsa.umich.edu (Edward Vielmetti) (03/09/90)

Has anyone done this one yet?  Assuming @article is an array with the
lines of the news article in it, I'm looking for
	@signature = &getsignature(@article);
to understand not just the most common convention (/^-- $/) but
others in general use.

$sig{'emv@math.lsa.umich.edu'},

--Ed