Paul Maine Jr. writes:
> I am successfully reading the POP3 message. Next, I store the message
> contents in the @mailmessage array. When I try to print the header tags -
> nothing is printed. Any assistance would be appreciated. I have included the
> code for your review.
>
> Thank You
> Paul
> ****************************************************************************
> ****
> use Mail::POP3Client;
> use Mail::Internet;
> use Mail::Header;
>
> $pop = new Mail::POP3Client( USER => "servicetest",
> PASSWORD => "testservice",
> HOST => "mail.noc.12345.com" );
>
>
>
> push @mailmessage,$pop->HeadAndBody(2)."\n";
> print @mailmessage;
>
> $header = new Mail::Header @mailmessage;
try:
$header = new Mail::Header \@mailmessage;
> print join("\n",sort $header->tags);
--
Brian Raven
I suppose you could switch grammars once you've seen "use strict subs". :-)
-- Larry Wall in <[EMAIL PROTECTED]>
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
