What do you find when you say:

print @$body
[download]

$body represents a reference to an array. Read
perldoc perlreftut and perlref
for more information.
mkmcconn

Thanks so much, that worked like a charm...the only problem now though is body also contains:

MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_0032_01C17453.FA494D20"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000

test

...
[download]


The main reason i used the modules was because i was told this was fix that :( rather than split direct from STDIN ... any ideas on how i can get the message from that?

You're seeing parts of the headers there.
If I remember correctly, you may (using this method) have to use print $$body[2] or something similar.
Please see perldata for more information on why.

Mime::Tools is not the most friendly of modules, either... Here's a small snippet which I used once upon a time. Mail messages are stored in @msgs, ok?


foreach my$thismsg (@msgs){
    my $parser = new MIME::Parser;

    my $ent = $parser->parse_data ("$thismsg");
    print "here's the message :\n$thismsg\n";
    print "mime type is ", $ent->mime_type(),"\n";
    my @all_parts  = $ent->parts;
    foreach (@all_parts) {
        print "mime type is ", $_->mime_type(),"\n";
        my $head=$_->head()->as_string;
        if ($head=~/filename\="(.*?)"/) {print "Filename is $1\n"}
        print "header is $head\n";
        print "------------------done\n";
    }
    print "------------------done with messages\n";

}
[download]

This shows how to read the entire message, parts of the content type and the header. IIRC, to pull out the message body would be similar to my $body=$_->body()->as_string; rather than my $head=$_->head()->as_string;.

 if ($MIME_entity->parts > 0)
{
   for (my $i=0;$i<$MIME_entity->parts;$i++)
   {
      my $subEntity = $MIME_entity->parts($i);
      if (($types->{$subEntity->mime_type} eq 'text/html')
           ||
           ($types->{$subEntity->mime_type} eq 'text/plain'))
      {
         if (my $io = $entity->open("r"))
         {
            while (defined($_=$io->getline))
            {$recHash->{body} = $recHash->{body} . $_;}
            $io->close;
         }
   
      }
   }
}
[download]

#!/usr/bin/perl

use MIME::Parser;
use Data::Dumper;
$parser = new MIME::Parser;
$parser->ignore_errors(1);
$parser->output_to_core(1);
my $MIME_entity = $parser->parse(\*STDIN);
my $error = ($@ || $parser->last_error);

if ($MIME_entity->parts > 0) # Is this a multipart
{
   print ">> Multi Part Message\n";
  for (my $i=0;$i<$MIME_entity->parts;$i++)
  {
    my $subEntity = $MIME_entity->parts($i);
      print ">> MIME: ", $subEntity->mime_type," \n";
    if (($subEntity->mime_type eq 'text/html')
          ||
        ($subEntity->mime_type eq 'text/plain'))
    {
       if (my $io = $subEntity->open("r"))
       {
           while (defined($_=$io->getline))
              {print $_}
           $io->close;
        }

     }
  }
}
else
{
   my $body = join "",  @{$MIME_entity->body};
   print ">> Not a multipart\n";
   print $body;
}
[download]

Hi AtlantaGeek,

The way I am doing it is to pipe emails to the script, I'm not sure how to include the code above ..

..what does the body get stored in from your above snippet?

I'm sorry, $MIME_entity and $entity are the same variable. I was copying code from an existing application that I have. As long as you have the MIME_entity object created the open subroutine should work. Here you are letting the MIME::Parser parse the body of the message as well as the header.
----
I always wanted to be somebody... I guess I should have been more specific.

 #!/usr/bin/perl

use MIME::Parser;
use Data::Dumper;
$parser = new MIME::Parser;
$parser->ignore_errors(1);
$parser->output_to_core(1);
my $MIME_entity = $parser->parse(\*STDIN);
my $error = ($@ || $parser->last_error);

if ($MIME_entity->parts > 0)
{
   print ">> Multi Part Message\n";
  for (my $i=0;$i<$MIME_entity->parts;$i++)
  {
    my $subEntity = $MIME_entity->parts($i);
      print ">> MIME: ", $subEntity->mime_type," \n";
    if (($subEntity->mime_type eq 'text/html')
          ||
        ($subEntity->mime_type eq 'text/plain'))
    {
       if (my $io = $subEntity->open("r"))
       {
           while (defined($_=$io->getline))
              {print $_}
           $io->close;
        }

     }
  }
}
else
{
   my $body = join "",  @{$MIME_entity->body};
   print ">> Not a multipart\n";
   print $body;
}
[download]