Re: Copy of a filehandle reference

Well, you could do this:

my $original;
{
  local $/;
  $original = <STDIN>; # slurp 
}
die "Ah darn it! Nothing in original!" unless $original;
my $entity = $parser->parse_data($original);
[download]

Since the contents of $original are passed by value, $original should still contain everything that was originally in STDIN. Hope this helps.

On a side note:

I really recommend checking out MIME::Parser's documentation. For instance:

Parameters. If YESNO is true, decoding is done. However, you will get 
a warning unless you use one of the special "true" values: 

   "I_NEED_TO_FIX_THIS"
          Just shut up and do it.  Not recommended.
          Provided only for those who need to keep old scripts 
          functioning.

   "I_KNOW_WHAT_I_AM_DOING"
          Just shut up and do it.  Not recommended.
          Provided for those who REALLY know what they are doing.
[download]

A module that specifically looks for "I_NEED_TO_FIX_THIS" and "I_KNOW_WHAT_I_AM_DOING" as truth is a good module in my book. At least a good read. :P

antirice
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1

Comment on Re: Copy of a filehandle reference Select or Download Code

Replies are listed 'Best First'.
Re: Re: Copy of a filehandle reference by Anonymous Monk on Jun 19, 2003 at 12:52 UTC
Thanks! That did the trick... so simple, yet for some reason I tried every thing but. I like the example below this, because it has a lot of things I have never used before, so I'll get a chance to try em out, but unfortunatly it didn'T work for me as is. I got `write-open ./msg-2379-1.txt: Permission denied at /usr/lib/perl5/site_ +perl/5.6.0/MIME/Body.pm line 414, <TMP> line 22.` [download] and since this one is quicker and simpler, I'll put it inot production and try to figure the other one out later...	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Copy of a filehandle reference
by Anonymous Monk on Jun 19, 2003 at 12:52 UTC

write-open ./msg-2379-1.txt: Permission denied at /usr/lib/perl5/site_
+perl/5.6.0/MIME/Body.pm line 414, <TMP> line 22.
[download]

[reply]
[d/l]