> On Feb 15, 2017, at 8:10 PM, Eko Budiharto <[email protected]> wrote:
>
> dear Jim,
> I tried to add lines to read file like this:
>
> use Email::MIME;
>
> my $file = '/var/qmail/mailnames/<domain
> name>/support/Maildir/cur/1487041394.M984019P23084V0000000000000803I0000000000E03878.ABCD.NET,S=3987:2,';
> open my $ifh, '<', $file
> or die "Cannot open '$file' for reading: $!";
> local $/ = '';
> my $contents = <$ifh>;
> close( $ifh );
>
> my $mime = Email::MIME->($contents); —> line 13
>
> my @parts = $mime->parts();
>
> for my $npart ( 0..$#parts ) {
> my $part = $parts[$npart];
> my $header = $part->header_obj();
> my $htext = $header->as_string();
> my $body = $part->body();
>
> print $header;
> }
>
> after I ran its from CLI, I got an error message Undefined subroutine
> &Email::MIME called at line 13.
>
> what does the error mean?
That means I mistyped the line. It should be this:
my $mime = Email::MIME->new($contents);
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
