I've recently been doing lots of mail parsing.
Here's an awesome solution I found ::
use Mail::Internet;
my $mail = Mail::Internet->new(\*STDIN);
my $headers = $mail->head->header_hashref;
my @body = @{$mail->tidy_body()};
Now you have your headers in hash and the body in an array.
print $head
Quick question, if I am reading in the email message into an array like such:
my @alert_email = ;
how would the Mail::Audit be applied ??
>> Pete Emerson wrote:
Mail::Audit can do this for you.
my $mail=Mail::Audit->new();
my $from=$mail->from;
my $to=$mail->to;
my $cc=$mail->cc;
my $subject=$m
Mail::Audit can do this for you.
my $mail=Mail::Audit->new();
my $from=$mail->from;
my $to=$mail->to;
my $cc=$mail->cc;
my $subject=$mail->subject;
my $body=$mail->body;
Pete
On Sat, 8 Mar 2003, Mike Blezien wrote:
> Hello All,
>
> I've sent up a .forward file to pipe a certain email address t
Hello All,
I've sent up a .forward file to pipe a certain email address to a Perl script,
and it's working well, I can extract the [to,from and subject], for the emails,
but can not get it to extract the main body of the email, trying removing all
the un-wanted email headers...
Is this a speci
