简单的菜单系统perl

Question

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

那将运行任何命令，也许在完成后结束时暂停，这就是这样。 我寻找了一段时间来寻找一个基本的示例菜单，可以抓取和不运气。 发现了大量的参考文献，有90％的简单链接，过时的等。 如果有人使用诅咒的示例，或者是一种更好的简单方法，让我只能从菜单中运行一堆控制台命令，那就太好了。

谢谢！

Answer 1

这是一个示例，使用 cursess :: ui 和a 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;
}