perl - 如何在实现 net-snmp 代理时清除 perl 脚本错误？

Question

我现在通过引用此站点在 Ubuntu 16.04 上实现 net-snmp 代理
(https://kadionik.vvv.enseirb-matmeca.fr/embedded/snmp/english/net-snmp_english.html)
但我停在“4.2 NET-SNMP 代理扩展”
当我执行“perl Makefile.PL”时，显示以下错误消息。(perl 版本:5.22.1)

Can't locate MakefileSubs.pm in @INC (you may need to install theMakefileSubs module) (@INC contains: /etc/perl/usr/local/lib/arm-linux-gnueabihf/perl/5.22.1/usr/local/share/perl/5.22.1 /usr/lib/arm-linux-gnueabihf/perl5/5.22/usr/share/perl5 /usr/lib/arm-linux-gnueabihf/perl/5.22/usr/share/perl/5.22 /usr/local/lib/site_perl/usr/lib/arm-linux-gnueabihf/perl-base .) at Makefile.PL line 7. BEGINfailed--compilation aborted at Makefile.PL line 7.

以下是 Perl 脚本。

use strict;
use warnings;
use ExtUtils::MakeMaker;
require 5;
use Config;
use Cwd 'abs_path';
use MakefileSubs;

my $lib_version;

WriteMakefile(DefaultStoreInitMakeParams());

sub DefaultStoreInitMakeParams {
    my $opts;
    my %Params = (
      'NAME'        => 'NetSNMP::default_store',
      'VERSION_FROM'    => 'default_store.pm', # finds $VERSION
      'XSPROTOARG'          => '-prototypes',
      );

AddCommonParams(\%Params);
              
my ($snmp_lib, $snmp_llib, $sep);

$opts = NetSNMPGetOpts();

if ($Config{'osname'} eq 'MSWin32' && !defined($ENV{'OSTYPE'})) {
  $sep = '\\';
  my $snmp_lib_file = 'netsnmp.lib';
  my $snmp_link_lib = 'netsnmp';
  my $lib_dir;

  if (lc($opts->{'debug'}) eq "true") {
    $lib_dir = 'lib\\debug';
  }
  else {
    $lib_dir = 'lib\\release';
  }
  
  if (lc($opts->{'insource'}) eq "true") {
$Params{'LIBS'} = "-L" . $MakefileSubs::basedir . "\\win32\\$lib_dir\\ -l$snmp_link_lib";
  }
  else {
my @LibDirs = split($Config{path_sep}, $ENV{LIB});
    my $LibDir;
if ($opts->{'prefix'}) {
  push (@LibDirs,"$ENV{'NET-SNMP-PATH'}${sep}lib");
}
my $noLibDir = 1;
while ($noLibDir) {
  $LibDir = find_files(["$snmp_lib_file"],\@LibDirs);
  if ($LibDir ne '') {
    $noLibDir = 0;
        # Put quotes around LibDir to allow spaces in paths
        $LibDir = '"' . $LibDir . '"';
  }
  else
  {
    @LibDirs = ();
    $LibDirs[0] = prompt("The Net-SNMP library ($snmp_lib_file) could not be found.\nPlease enter the directory where it is located:");
    $LibDirs[0] =~ s/\\$//;
  }
}
$Params{LIBS} = "-L$LibDir -l$snmp_link_lib";
  }
}
else {
$Params{'LIBS'}    = `$opts->{'nsconfig'} --libs` or
    die "net-snmp-config failed\n";
chomp($Params{'LIBS'});
    $lib_version = `$opts->{'nsconfig'} --version` or
    die "net-snmp-config failed\n";
if (lc($opts->{'insource'}) eq "true") {
    $Params{'LIBS'} =
            "-L" . abs_path("../../snmplib/.libs") .
            " -L" . abs_path("../../snmplib") .
            " " . $Params{'LIBS'};
}
}

return(%Params);
}

我检查了许多解决此问题的建议，并安装了一些软件包，“libsnmp-perl”、“libnet-snmp-perl”。
但是我还没有解决这个问题。
你可以帮帮我吗？
谢谢

Answer 1

net-snmp 发行版(不是 Perl 模块)有一个名为 perl/的目录，其中包含 Makefile.PL。我假设你在这个目录中。在 perl/下，有一个名为 MakefileSubs.pm 的文件。要让 Perl 程序加载它，它需要知道在当前目录中查找 MakefileSubs.pm。当您查看错误消息时，您会看到 perl 搜索的目录列表；它看起来不像 .有没有。
顺便说一句，当前工作目录 . , 是 removed from the default module search path in Perl v5.26 ，但您使用的是早期版本，看起来有人决定为默认搜索路径使用一组不同的目录。
一种方法是使用 -I 指定附加目录。切换使用.对于当前目录:

perl -I. Makefile.PL

您还可以将此目录添加到 PERL5LIB 环境变量中，以便 session 中的任何内容也将搜索该目录:

% export PERL5LIB = .:$PERL5LIB

How do I add a directory to my include path (@INC) at runtime?