1

我正在尝试按照此处MIME::Parser::FileUnder的说明进行子类化。所以我安装了这个模块：

$ sudo cpan install MIME::Parser::FileUnder
[...]
Result: PASS
  DSKOLL/MIME-tools-5.504.tar.gz
  /usr/bin/make test -- OK
Running make install
Manifying blib/man3/MIME::Decoder::Gzip64.3pm
Appending installation info to /usr/local/lib/perl/5.14.2/perllocal.pod
  DSKOLL/MIME-tools-5.504.tar.gz
  sudo /usr/bin/make install  -- OK

看起来安装正确，但是

$ ./test_gmail.pl
Can't locate MIME/Parser/FileUnder.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.14.2 /usr/local/share/perl/5.14.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.14 /usr/share/perl/5.14 /usr/local/lib/site_perl .) at GMailMIMEParser.pm line 4.
BEGIN failed--compilation aborted at GMailMIMEParser.pm line 4.
Compilation failed in require at ./test_gmail.pl line 13.
BEGIN failed--compilation aborted at ./test_gmail.pl line 13.

如果我尝试MIME::Parser::FileUnder再次安装，它会奇怪地安装它，而不是像任何其他模块一样告诉我它是最新的。

这是我的子类GMailMIMEParser：

package GMailMIMEParser;

use strict;
use MIME::Parser::FileUnder;

our @ISA = qw(MIME::Parser::FileUnder);

my $cur = 0;

sub output_path
{
    my $class = shift;
    my $head = shift;
    print(STDERR $head);
    $cur++;
    return "./$cur";
}

提前致谢！

4

1 回答 1

0

我只是在做错事。我必须子类MIME::Parser::Filer而不是子类MIME::Parser::FileUnder，它本身就是一个MIME::Parser::Filer子类。

package GMailMIMEParser;

use strict;
use MIME::Parser::Filer;

our @ISA = qw(MIME::Parser::Filer);

my $cur = 0;

sub output_path
{
    my $class = shift;
    my $head = shift;
    print(STDERR $head);
    $cur++;
    return "./$cur";
}
于 2013-03-23T21:04:36.540 回答