0

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"  );
4

1 回答 1

0

如果模块安装在dirdir但不是其中的一部分@inc,您可以

use lib qw(dir);

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

于 2012-08-06T19:15:23.673 回答