Re^2: trouble with MIME::Tools

$page is strictly for display (use CGI module)

$email is a string that holds the email message in it's entirty (verified earlier by being printed out). It was loaded using Net::POP3. Specifically with the get method.

life is a game... so have fun.

Comment on Re^2: trouble with MIME::Tools

Replies are listed 'Best First'.
Re^3: trouble with MIME::Tools by GrandFather (Saint) on Oct 24, 2005 at 18:35 UTC
The following works for me. What's your beef? Give a similar example that doesn't work for you. `use warnings; use strict; use MIME::Parser; my $email = 'Subject: none'; my $parser = new MIME::Parser; my $entity = $parser->parse_data ($email) or die "Bad Parse. "; my $subject = $entity->head->get ('subject', 0); my $crap = defined $subject?$ entity->head->get ('Subject', 0) : 'unde +苯'; print $crap;` [download] Perl is Huffman encoded by design.	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: trouble with MIME::Tools
by GrandFather (Saint) on Oct 24, 2005 at 18:35 UTC

The following works for me. What's your beef? Give a similar example that doesn't work for you.

use warnings;
use strict;
use MIME::Parser;

my $email = 'Subject: none';

my $parser = new MIME::Parser;
my $entity = $parser->parse_data ($email) or die "Bad Parse. ";
my $subject = $entity->head->get ('subject', 0);
my $crap = defined $subject?$ entity->head->get ('Subject', 0) : 'unde
+苯';

print $crap;
[download]

Perl is Huffman encoded by design.

[reply]
[d/l]