简单的菜单系统 Perl

Question

我试图在一个简单的菜单上运行 10-20 个命令（centos），而不是从头开始编写，我正在考虑使用 ncurses 或类似于此图像的东西，非常基本

然后它将运行任何命令，可能在完成后暂停，仅此而已。 我找了一段时间来寻找一个基本的示例菜单来抓取和去，但没有运气。 找到了大量的参考资料，其中 90% 只是死链接、过时等。如果有人有一个使用诅咒的例子，或者有一个更好的简单方法让我从菜单中运行一堆控制台命令，那就太好了。

谢谢！

Answer 1

下面是一个使用Curses::UI和Curses::UI::Listbox来显示菜单的示例：

use strict;
use warnings;
use Curses::UI;

my $cui = Curses::UI->new( -color_support => 1 );
my $win1 = $cui->add('win1', 'Window');

my $listbox = $win1->add(
    'lb',
    'Listbox',
    -vscrollbar => 'left',
    -title      => "Select Playlist",
    -border     => 1,
    -wraparound => 1,
    -values     => [ "Radio",
                 "Recently added",
                 "SD-Alternative",
                 "SD-Country",
                 "SD-Pop",
                 "SD-Rock",
                 "TV Shows",
                 "Voice Memos",
                 "iTunes U",
             ],
    -onchange   => \&selected_item,
);
$cui->draw;
$cui->set_binding( \&exit_dialog , "\cQ");
$cui->mainloop();

sub selected_item {
    my $item = $listbox->get_active_value();
    my $return = $cui->dialog(
        -message   => "You selected item: $item. Do you want to quit?",
        -title     => "Item selected",
        -buttons   => ['yes', 'no'],
    );
    exit 0 if $return;
}

sub exit_dialog {
    my $return = $cui->dialog(
        -message   => "Do you really want to quit?",
        -title     => "Are you sure?",
        -buttons   => ['yes', 'no'],
    );
    exit 0 if $return;
}