> On Feb 14, 2017, at 10:38 PM, Eko Budiharto <[email protected]> wrote:
>
> dear all,
> I have a question.
> If I would like to parse all incoming mails from my qmail, which perl module
> is easy to use?
> my qmail emails incoming is /var/qmail/mailnames/<domain names>/support. In
> this folder I already have preline in .qmail for piping emails to my perl
> script.
> And, my perl script what I already have is like this:
>
> #!/usr/bin/perl -w
>
> use Mail::Internet;
>
> my $mail = Mail::Internet->new( [ <STDIN> ] );
> my $headers = $mail->head->header_hashref;
> my @subject = @{${$headers}{'Subject'}}; # or otherwsie do it in list context
> it works
>
> print @subject;
>
>
> when I run it, I do not get anything.
>
> please help.
I use Email::MIME to parse email messages. After reading the email file into
the variable $text I do this:
my $mime = Email::MIME->($text);
my @parts = $mime->parts();
for my $npart ( 0..$#parts ) {
my $part = $parts[$npart];
my $header = $part->header_obj();
my $htext = $header->as_string();
my $body = $part->body();
…
}
Jim Gibson
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
