Question

Perl - CGI

apache无法加载使用make和install安装的perl模块。在apache日志中，它给出了错误的说法 - 在@INC中找不到模块。

虽然通过CPAN安装的模块工作正常。

请帮助

#!/usr/bin/perl
use lib qw(/home/appsadm/Infoblox_Perl_API/Infoblox-6.0040000164053);
use lib qw(/usr/lib/perl5/5.8.8/CPAN/LWP/); 
use LWP::UserAgent;
use Infoblox::Session;

local ($buffer, @pairs, $pair, $name, $value, %FORM);   
    $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
    if ($ENV{'REQUEST_METHOD'} eq "POST")    {
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    }else {
        $buffer = $ENV{'QUERY_STRING'};
    }

    @pairs = split(/&/, $buffer);

    foreach $pair (@pairs)
    {
        ($name, $value) = split(/=/, $pair);

        $value =~ tr/+/ /;

        $value =~ s/%(..)/pack("C", hex($1))/eg;

        $FORM{$name} = $value;
    }

    $username = $FORM{username};
    $password  = $FORM{password};

my $appliance = '161.19.15.8';

$session =  Infoblox::Session->new(  master => $appliance,  username => "admine", password=> "prafgd1"  );

Answer 1

如果模块安装在dir且dir不属于@inc，则可以

use lib qw(dir);

在程序开始时，在使用模块之前。

apache无法加载使用make和install manulally安装的perl模块

1 个答案: