MIME::Parser

stew has asked for the wisdom of the Perl Monks concerning the following question:

Hi there,

Further to my earlier post I'm trying to make headway with MIME::Parser I've tried to make myself familiar with various examples but to no avail. Even the most basic example yeilds the following error.

readline() on unopened filehandle DATA at /usr/local/lib/perl5/site_perl/5.6.1/MIME/WordDecoder.pm line 579.

Example:

#!/usr/bin/perl -W
use strict;
$|++;

use MIME::Parser;
use MIME::Entity;

my $envelope = <STDIN>;

my $parser = MIME::Parser->new;
$parser->output_to_core(1);
$parser->tmp_to_core(1);
[download]

Any ideas what I'm doing wrong

Humbly yours
./stew

Comment on MIME::Parser Select or Download Code

Replies are listed 'Best First'.
Re: MIME::Parser by ChrisR (Hermit) on Nov 12, 2003 at 15:22 UTC
If you change the shebang line to `#!/usr/bin/perl -w` (notice the lowercase w), this error does not occur. I'm not sure what the difference is between lowercase and uppercase w in the shebang line but I'm looking that up now. *Update* `-w` prints warnings... `-W` "Unconditionally and permanantly enables all warnings throught the program, even if warnings were disabled locally using `no warnings` or `$^W = 0`. This includes all files loaded via `use, require,` or `do`." from the Camel Book I haven't checked but it could be possible that the author turned off warnings intentionally. I use `use MIME::Parser; use MIME::Entity; use MIME::WordDecoder; use MIME::Body; use MIME::Base64; use MIME::QuotedPrint;` [download] quite a bit in a an email program I wrote and have no problems or warnings but then again I use `-w` instead of `-W`	[reply] [d/l] [select]
Re: Re: MIME::Parser by stew (Scribe) on Nov 12, 2003 at 15:35 UTC
That has indeed done the trick, thank you very much ./stew	[reply]