如何在Perl中构建一个简单的菜单？

Question

我正在研究一个需要一些基本菜单功能的Perl脚本.最后,我希望每个菜单都有几个选项,然后选择返回上一个菜单或退出.

例:

这是一个菜单:

1. 选择1
2. 选择2
3. 返回上一级菜单
4. 出口

选择一个选项:

我目前有一个菜单子程序来制作菜单,但没有功能允许它返回上一个菜单.

    sub menu
    {
        for (;;) {
            print "--------------------\n";
            print "$_[0]\n";
            print "--------------------\n";
            for (my $i = 0; $i < scalar(@{ $_[1]}); $i++) {
                print $i + 1, "\.\t ${ $_[1] }[$i]\n";
            }
            print "\n?: ";
            my $i = <STDIN>; chomp $i;
            if ($i && $i =~ m/[0-9]+/ && $i <= scalar(@{ $_[1]})) {
                return ${ $_[1] }[$i - 1];
            } else {
                print "\nInvalid input.\n\n";
            }
        }
    }

    # Using the menu
    my $choice1  = menu('Menu1 header', \@list_of_choices1);

    # I would like this menu to give the option to go back to
    # the first menu to change $choice1
    my $choice2 = menu('Menu2 header', \@list_of_choices2);

我不想对所有菜单进行硬编码,并使用if/elsif语句进行所有处理,因此我将菜单转换为函数.

我的菜单目前看起来像这样......

菜单标题:

1. 选择1
2. 选择2
3. Choice3

？:(在此输入输入)

此解决方案仍然不允许用户返回上一个菜单或退出.我正在考虑制作一个菜单类来处理菜单,但我仍然不太喜欢面向对象的Perl.这是一个只有少量菜单的小程序,因此使用复杂的菜单构建模块可能有点过分.我想让我的代码尽可能轻松.

编辑:

感谢您的快速回复!但是仍然存在问题.当我从"Menu1"中选择一个选项并进入"Menu2"时,我希望从"Menu1"中保存选项供以后使用:

菜单1:

1. Choice1 < - 如果选择存储值,则转到下一个菜单
2. 选择2 < - ......
3. 退出< - 退出

菜单2:

1. Choice1 < - 如果选择存储值,则转到下一个菜单
2. 选择2 < - ......
3. 返回< - 返回上一级菜单以重新选择值
4. 退出< - 退出

选择Choice1或Choice2应该在变量中存储一个值供以后使用,并进入下一个菜单.然后,如果您选择从Menu2返回第一个菜单,它将为您提供重新选择并重新定义变量的选项.我试图避免使用全局变量,这使得这非常困难.

在完成所有菜单并设置所有这些变量的值之后,我想运行一个子程序来处理所有选项并打印最终输出.

 sub main () {

   # DO MENU STUFF HERE

   # PROCESS RESULTS FROM MENU CHOICES
   my $output = process($menu1_choice, $menu2_choice, $menu3_choice, ... );
 }

此外,如果任何人使用类或其他数据结构有一个面向对象的方法,虽然它可能是矫枉过正,我仍然希望看到它并尝试包围我的想法!

Answer 1

您可以使用诸如Term :: Choose之类的模块:

use Term::Choose qw( choose );

my $submenus = {
    menu1 => [ qw( s_1 s_2 s_3 ) ],
    menu2 => [ qw( s_4 s_5 s_6 s_7) ],
    menu3 => [ qw( s_8 s_9 ) ],
};
my @menus = ( qw( menu1 menu2 menu3 ) );
my $mm = 0;
MAIN: while ( 1 ) {
    my $i = choose( 
        [ undef, @menus ],
        { layout => 3, undef => 'quit', index => 1, default => $mm }
    );
    last if ! $i;
    if ( $mm == $i ) {
        $mm = 0;
        next MAIN;
    }
    else {
        $mm = $i;
    }
    $i--;
    SUB: while ( 1 ) {
        my $choice = choose(
            [ undef, @{$submenus->{$menus[$i]}} ],
            { layout => 3, undef => 'back' }
        );
        last SUB if ! defined $choice;
        say "choice: $choice";
    }
}