It was Friday, February 21, 2003 when Dan Muey took the soap box, saying:
: Hello list,
:
: What is the best way to get the headers of an email into a hash and also the text
part of the body into an array or variable?
Mail::Internet->new() accepts a list reference full of lines in an
email message. This is nice, since getting a list from STDIN is not
difficult.
my $mail = Mail::Internet->new( [ <STDIN> ] );
my $headers = $mail->head->header_hashref;
my $subject = $headers->{Subject};
Enjoy!
Casey West
--
Shooting yourself in the foot with Apple System 7
Double click the gun icon and a window giving a selection for guns,
target areas, plus balloon help with medical remedies, and assorted
sound effects. Click "shoot" button and a small bomb appears with note
"Error of Type 1 has occurred."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
