0

我试图让 mod_perl 在我的 apache 安装上工作，以便使用 perlhandler。

我首先尝试使用此虚拟主机在我的域的子目录中

<VirtualHost *:80>
    ServerAdmin webmaster@localhost
    ServerName ***.fr.cr

    DocumentRoot /var/www/aw
    <Directory /var/www/aw/>
            AllowOverride None
            Order allow,deny
            allow from all
    </Directory>

    PerlModule test2::Rules2
    alias /perl2/ /usr/lib/perl5/test2/
    <Location /perl2/>
            Order allow,deny
            allow from all
            SetHandler perl-script
            PerlHandler test2::Rules2
    </Location>

    ErrorLog ${APACHE_LOG_DIR}/aw.error.log

    # Possible values include: debug, info, notice, warn, error, crit,
    # alert, emerg.
    LogLevel warn

    CustomLog ${APACHE_LOG_DIR}/aw.access.log combined
</VirtualHost>

在这里，当我去* .fr.cr/perl2/时它工作正常

但是，当我尝试使用这个虚拟主机直接对我的域的根目录执行此操作时：

<VirtualHost *:80>
    ServerAdmin webmaster@localhost
    ServerName ***.fr.cr

    DocumentRoot /var/www/aw
    <Directory /var/www/aw/>
            AllowOverride None
            Order allow,deny
            allow from all
    </Directory>

    PerlModule aw::main
    alias / /usr/lib/perl5/aw/
    <Location />
            Order allow,deny
            allow from all
            SetHandler perl-script
            PerlHandler aw::main
    </Location>

    ErrorLog ${APACHE_LOG_DIR}/aw.error.log

    # Possible values include: debug, info, notice, warn, error, crit,
    # alert, emerg.
    LogLevel warn

    CustomLog ${APACHE_LOG_DIR}/aw.access.log combined
</VirtualHost>

我收到错误 500，并且 apache 日志有这一行：

Can't locate object method "content_type" via package "Apache2::RequestRec" at /usr/lib/perl5/aw/main.pm line 6.\n

奇怪的是我用 2 个代码测试

一个缺少“print”包，一个缺少“content_type”包，第一个有“content_type”，但错误在代码后面。

我想我的虚拟主机缺少一些东西，因为它在一种情况下工作，而不是在另一种情况下使用相同的代码。

谢谢！

编辑：代码：不工作：

package aw::main;
use Apache2::Const qw(:common);

sub handler {
    my $r = shift;
    $r->content_type("text/plain");
    $r->print("mod_perl rules!\n");
    return OK;
}
1;

和工作：

package test2::Rules2;
use Apache2::Const qw(:common);

sub handler {
my $r = shift;
$r->content_type("text/plain");
$r->print("mod_perl rules!\n");
return OK;
}
1;
4

1 回答 1

0

我一直在努力解决同样的问题，我想我已经找到了答案：

当您在 Perl 中调用对象方法时，例如 myinstance->themethod(arg1)，那么该方法将类（包）的名称作为第一个参数，将第一个参数作为第二个参数。如果您将方法调用为静态方法，例如 class::method(arg1)，则子例程获取的第一个参数是第一个参数。像这样：

#!/usr/bin/perl

print "Calling as an object method:\n";
fish->chips('lettuce');
print "Calling as a static method:\n";
fish::chips('lettuce');

{package fish;

sub chips {
  my $x=shift;
  my $y=shift;

  print "\$x is $x and \$y is $y\n";
  }
}

其输出是：

Calling as an object method:
$x is fish and $y is lettuce
Calling as a static method:
$x is lettuce and $y is

mod_perl 将您的处理程序作为对象方法调用。它将包名称作为第一个参数。如果您在第二个shift参数之前添加并丢弃第一个参数，shift那么您$r可能就是您正在寻找的请求对象。

再次查看我的 Apache conf 文件后，我意识到我已经给出了处理程序指令PerlResponseHandler Fish->chips而不是PerlResponseHandler Fish::chips. mod_perl 在找到我想使用的处理程序时遇到了一些麻烦。当我指定 Fish 并命名处理程序时sub handler {...，mod_perl 找不到它。同样，当我指定处理程序名称时，如Fish::handler（或者，当我重命名它）时Fish::chips，Apache 将chips.pm在名为Fish.

我不知道这是否是 mod_perl 解析或解析处理程序名称的方式中的实际错误，但至少它是非常脆弱的行为。除非我在这里遗漏了什么，如果我是我希望有人能指出来。

我希望这会有所帮助。

于 2012-12-06T18:57:05.217 回答