在 Perl 脚本运行时安装 Term::ReadLine::Gnu 并使用脚本中的模块

Question

我正在编写一个程序供其他人使用。设计规范之一是使用 Term::ReadLine::Gnu Perl 库。大多数用户不会安装它，而我想在程序运行时安装它。

因此，当用户启动程序时，他们没有安装该库。我的程序将在他们使用操作系统包管理器使用该程序时为他们安装它。

这就是我检查模块的方式

         require Term::ReadLine;

         my $Readline_Support = 1;
         eval { require Term::ReadLine::Gnu }
           or $Readline_Support = 0;

，我使用 $Readline_Support 变量来重定向终端，使用历史文件等。

          $OUT = $TERMINAL->OUT if $readline_installed;
          if ($readline_installed)
          {
            # save every answer and default, good or not, to the history file
            $TERMINAL->add_history($Ans);
            $TERMINAL->append_history(1, HIST_FILE);
          }

不幸的是，当我尝试使用历史文件时，我收到此错误：

无法定位对象方法“using_history” " via package "Term::ReadLine::Stub" at ./msi.pl 第 618 行，第 2 行。

第 618 行是

          $TERMINAL->using_history();

$TERMINAL 对象的第一次使用。

有没有人有过在脚本运行时安装 Perl 模块，然后在同一脚本中使用这些模块的经验？

好的...感谢 Andy，如果未安装模块，则可以

          # I removed the  require Term::ReadLine; here
          my $Readline_Support = 1;
          eval { require Term::ReadLine::Gnu }
            or $Readline_Support = 0;

在代码中进行下面的

            if ($readline_installed)
            {
              # Required for the dynamic loading of Term::ReadLine::Gnu
              require Term::ReadLine;

              $TERMINAL = Term::ReadLine->new ('ProgramName')
                 if $Interactive or $Brief
            }

操作，但是现在，对已安装 mod 的检查总是失败，我认为因为

            require Term::ReadLine::Gnu;

需要

            require Term::ReadLine;

在代码的早期进行，就像旧的一样

     require Term::ReadLine;

     my $Readline_Support = 1;
     eval { require Term::ReadLine::Gnu }
       or $Readline_Support = 0;

Answer 1

大多数用户不会安装此程序，而我想在程序运行时安装它。

你在这里逆流而行。没有其他人这样做，并且在安装后更改系统也会让我认识的大多数系统管理员感到不安。

只需声明依赖关系，这样当您的程序安装时，T::R::G 也会被安装。我链接到 How 中的相关文档我要为遗留系统创建构建吗？。

该工具链已经为您提供了所有必要的部分，使每个参与其中的人都可以轻松完成此任务，请务必了解它。

Answer 2

您可以从“cpan”命令本身学习。 cpan 可以自行安装（升级）并随后重新加载所有使用的模块。这应该是一个很好的学习起点。

Answer 3

我在 Term::ReadLine 的代码中看到，它决定在加载时使用哪个实现，而不是在调用 new 时使用。因此，我建议按照以下顺序：

1. 测试 Term::ReadLine::Gnu 的可用性，就像您当前一样，但在加载任何 ReadLine 模块之前
2. 安装 Term ::ReadLine::Gnu 如果不存在
3. require Term::ReadLine
4. 使用 Term::ReadLine->new 创建对象

事情变得更加复杂，因为Term::ReadLine::Gnu 在尝试使用 use 或 require 直接加载它时会抛出错误，因此直接的 eval即使安装了，测试也会失败。解决这个问题的一种方法是解析 $@，但我不喜欢解析诊断消息，因为它们可能会随着时间的推移而改变。从 %INC 中删除似乎也不是很好，但只要直接加载 Term::ReadLine::Gnu 上的错误不消失就应该可以工作。

my $readline_installed = 1;
unless (eval { require Term::ReadLine::Gnu; }) {
    # Term::ReadLine::Gnu throws an error that it can't be loaded directly,
    # even when it's installed.
    $readline_installed = exists ($INC{"Term/ReadLine/Gnu.pm"});

    # Needed so that it will be reloaded after installation
    delete $INC{"Term/ReadLine/Gnu.pm"};
}

unless ($readline_installed) {
    print "Installing Term::ReadLine::Gnu\n";
    # ...
}

require Term::ReadLine;

my $term = Term::ReadLine->new ("app");
$term->addhistory ("blah");
print $term->readline ("> "), "\n";