perl - modperl 使用模块时出现内部服务器错误

Question

我尝试编写一个 perl_mod 脚本，但它说：“内部服务器错误”。

这是模块文件：（mm1.pm）

package mm1;
use strict;
use XML::Simple;
use DBI;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(asd);
our @EXPORT = qw(asd);

sub asd(){
    print "2222";
}

这是主文件：（main.perl）

#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use mm1;

print header(-type => 'text/html', -charset=>'utf-8');
print "asdasd";

如果我尝试在没有“使用 mm1;”的情况下运行 这个 main.perl 然后成功了。

问题是什么？

谢谢！

Answer 1

那不是 mod_perl 模块，而是 CGI 程序。

（第一个）问题几乎可以肯定是您1;从模块文件的末尾省略了 。但是查看 Web 服务器错误日志将确认这一点。