perl - 如何在 Perl 的 Term::Shell 中完成制表符？

Question

我在 Perl 中使用 Term::Shell 包来实现 CLI 工具。我无法用它完成命令部分的选项卡完成。

comp_CMD() - 这是 Term::Shell 提供的 API，用于实现制表符补全。
这对我没有帮助。有谁知道如何使这项工作？

示例代码:

#!/usr/bin/env perl
package Sample;
use base qw(Term::Shell);

sub prompt_str { "Sample\>" };

sub comp_show
{
    my $o = shift;
    my $word = shift;
    $o->completions($word, [qw(all work and no play is no fun at)]);
}

sub run_show
{
        print "run show\n";
}

package main;
Sample->new->cmdloop;

这是程序的运行:

Sample>show[TAB] 

上面的命令没有给出预期的输出..它只是给了我一个选项卡。

Answer 1

确保已安装 Term::ReadLine::Gnu 或 Term::ReadLine::Perl。