in reply to eMail processing for alarmistic

i'm learning perl by example and couldn't find a simple but fast solution to this.

Email::MIME will handle the decoding for you either for one header or for all of them. Here's a quick demo of both.

#!/usr/bin/env perl 
use strict;
use warnings;
use Email::MIME;
use Encode;

my $raw = <<'EOT';
Subject:
=?UTF8?B?5LuO5Y2a5a6i5paH56ug5Lit5p+l5om+5oKo5oSf5YW06Laj55qE5Li7?==?U
+TF-8?B?6aKY?=
=?UTF8?B?it5p+l5om+5oKo5oSf5YW06Laj55?=
To: larry@perl.org
From: peteredhair@perlmonks.org

Hi Larry!
EOT
my $email = Email::MIME->new ($raw);

# Just one
my $subj = $email->header ('Subject');
print "Single header subject is '", encode ("utf-8", $subj), "'\n\n";

# Or all of them
my @headers = $email->header_str_pairs ();
while (@headers) {
    my $key = shift @headers;
    my $val = shift @headers;
    print "$key: ", encode ("utf-8", $val), "\n";
}

[download]

PS. This is essentially hinted at in the FAQ How do I parse a mail header?

Replies are listed 'Best First'.
Re^2: eMail processing for alarmistic
by peteredhair (Novice) on Apr 28, 2018 at 20:04 UTC

    Thank you very much for your reply and help
    That did it and i've already integrated it in my code

    I wouldn't get there without your help as there are too many modules and ways to parse and decode mail.
    Now i can move on to the rest of the process

    When i end this program i'll post it if someone needs or to help others like me that are starting

    Thanks
    Peteredhair

[reply]
Re^2: eMail processing for alarmistic
by peteredhair (Novice) on May 07, 2018 at 23:48 UTC

    Since your reply i complemented my code a little bit, found a few problems, searched a bit more and composed a solution based on other's code too.

    So if this may help other newcomers i'm posting the code i've copy/pasted and built so far.

    This program accepts a outlook .msg file as an argument and prints the readable text parts of the email i need

    #!/usr/bin/perl -w
use strict;
use warnings;
use Email::MIME;
use Email::Address::XS;
use Encode;
use Email::Outlook::Message;

for my $filename ( glob("$ARGV[0]*") ) {

    # will create an Email::Mime object from .msg file
    my $msg  = new Email::Outlook::Message $filename or die "Can't ope
+n $filename: $!\n";
    my $msg_mime = $msg->to_email_mime;
    #print "Mime parts: " . $msg_mime->as_string, "\n";

    my ($from) = Email::Address::XS->parse($msg_mime->header ('From'))
+;
    my ($to) = Email::Address::XS->parse($msg_mime->header ('To'));
    my $subject = encode ("utf8", $msg_mime->header ('Subject'));
    my $date = $msg_mime->header ('Date');

    print "FROM: ", $from, "\n";
    print "TO: ", $to, "\n";
    print "SUBJECT: ", $subject, "\n";
    print "DATE: ", $date, "\n\n";

    ## tell the filename reading
    #  print 'Filename: ', $filename, "\n";

    my (@mailData, $body);
    $msg_mime->walk_parts(sub {
          my ($part) = @_;
          # warn($part->content_type . ": " . $part->subparts);
          if (($part->content_type =~ /text\/plain; charset=\"?utf-8\"
+?/i) && !@mailData) {
            @mailData = split( '\n', $part->body);
          }
          elsif (($part->content_type =~ /text\/plain; charset=\"?us-a
+scii\"?/i) && !@mailData) {
             @mailData = split( '\n', $part->body);
          }
          elsif (($part->content_type =~ /text\/plain; charset=\"?wind
+ows-1252\"?/i) && !@mailData) {
             @mailData = split( '\n', $part->body);
          }
          elsif (($part->content_type =~ /text\/plain; charset=\"?iso-
+8859-1\"?/i) && !@mailData) {
             @mailData = split( '\n', $part->body);
          }
    });

      #print $part->body;
      #only need utf-8 for this test
      foreach my $line (@mailData) {
             print encode ("utf8", $line) . "\n";
      }

}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom