Jim,
if I want to extract all incoming emails from my qmail emails, how can specify
the folder location and specify the file name since the file name always
different?
Thx.
> On Feb 15, 2017, at 22:56, Jim Gibson <jimsgib...@gmail.com> wrote:
>
>>
>> On Feb 14, 2017, at 10:38 PM, Eko Budiharto <eko.budiha...@gmail.com> 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
