http://qs321.pair.com?node_id=127090


in reply to MIME Errors

Probably the missing semi-colon after the eval block...
I also suspect the last '}' to be unmatched (and useless) ?

PS : Being consistent in your code layout would help finding such 'bracket error'.
See perlstyle for good advices...
As always : just my humble opinion..

UPDATE : To find where to place the semi-colon see eval
the syntax is explained and several examples given.
And sorry but I couldn't resist : RTFM !! ;-)


"Only Bad Coders Code Badly In Perl" (OBC2BIP)

Replies are listed 'Best First'.
Re: Re: MIME Errors
by Anonymous Monk on Nov 23, 2001 at 15:29 UTC
    ?I have fixed the unmatched '}' but the two errors remain :( How do you mean semi-colon after eval block? There is on at the end of that line, is there supposed to another ?
    use MIME::Parser; use Mail::Address; $parser = new MIME::Parser; eval { $MIME_entity = $parser->parse(\*STDIN); } if ($@){ print 'Trouble parsing mail:'; print $parser->results->msgs(); } else { $header = $MIME_entity->head(); $subject = $header->get('Subject'); my $from = $header->get('From'); my @from_addresses = Mail::Address->parse($from); my $address; if (@from_addresses) { $address = $from_addresses[0]->address(); } else { print "No address found in from line!\n"; } $bodyh = $ent->bodyhandle; } $parser->filer->purge();