Thanks I'll look into parsing out the message from the header boundary bit.
All I'm trying to do is get some of the header fields and do different things based on
them. And store the body alone somewhere.
Here's what I have and it works perfecto but one question...
-------------------
use Mail::Internet;
my $mail = Mail::Internet->new( \*STDIN );
my $body = $mail->tidy_body(); # or body() same thing but w/ empty line fore and aft
print @$body;
my $headers = $mail->head->header_hashref;
foreach $h(keys %{$headers}) { print "$h :: @{${$headers}{$h}} \n\n"; }
-------------------
My question now is this :
Is there a way to get these results into an array or hash withou using so many refs,
expecially the headers stuff.
Most of the things returned are references to arrays and hashes.
I could always have a section of code that assigns the refs to actual arrays and
hashes and wrap that in a
No strict 'refs'; line but I'd like to keep this to as few of lines as possible..
This would work but I'd rather avoid it if possible ::
no strict 'refs'
my $body = @$body;
my %head;
foreach $h(keys %{$headers}) { $head{$h} = @{${$headers}{$h}}; }
use strict 'refs';
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
