Hallo All,
I am new in perl and will be grarefull for any help.
my perl script is as follows:
#!/usr/bin/perl -w
use lib "/home/shenvi/share/man/man3";
use IO;
use Mail::Internet;
use MIME::Tool;
use Mail::MboxParser::Mail;
use Mail::MboxParser;
#USE OF Mail::MboxParser
my $mb = Mail::MboxParser->new("(\*STDIN)", decode => 'HEADER');
for my $msg ($mb->get_message) {
print $msg->header->{FROM}, "\n";
$msg->store_all_attachment('/home/shenvi/perl/tmp');
}
when i try to run this scrpit I keep on getting this error:
Error: The filename you passed to open() does not refer to an existing file
at Teststrip.PL line 31
in the above case line 31 is
my $mb = Mail::MboxParser->new("(\*STDIN)", decode => 'HEADER');
thanks
nandita
Nandita Shenvi
Appartment Nr. 707
Westhoffstr. 15
44791 Bochum
Germany
0234/5844456
Nandita Shenvi
Appartment Nr. 707
Westhoffstr. 15
44791 Bochum
Germany
0234/5844456
_________________________________________________________________
STOP MORE SPAM with the new MSN 8 and get 2 months FREE*
http://join.msn.com/?page=features/junkmail
