Perl是否提供类似Bash中select的交互式选择功能？

当然有啦！Perl 本身并没有像 Bash 那样内置一个直接的 select 命令，但我们完全可以轻松实现类似的交互式选择功能——不管是用 Perl 核心语法手写实现，还是借助 CPAN 模块简化开发，都能达到你想要的效果。

一、手写基础实现（无需额外模块） #

如果不想依赖第三方模块，我们可以用 Perl 的核心功能模拟 Bash select 的逻辑：获取目录列表、打印编号选项、验证用户输入，最后返回选中的内容。

下面是对应你需求的示例代码（实现列出当前目录下的子目录并让用户选择）：

#!/usr/bin/perl
use strict;
use warnings;

# 获取当前目录下所有子目录（对应 Bash 中的 */ 匹配规则）
my @directories = grep { -d } glob('*');

# 处理无目录的情况
if (@directories == 0) {
    print "当前目录下没有子目录哦～\n";
    exit 1;
}

# 打印带编号的选择列表
print "请选择一个目录：\n";
for my $index (0 .. $#directories) {
    print "$index) $directories[$index]\n";
}

# 循环读取用户输入，直到选择有效
my $selected_index;
while (1) {
    print "请输入编号：";
    chomp($selected_index = <STDIN>);
    
    # 验证输入是否为有效数字且在可选范围内
    if ($selected_index =~ /^\d+$/ 
        && $selected_index >= 0 
        && $selected_index <= $#directories) {
        last;
    } else {
        print ">>> 无效选择！请输入 0 到 $#directories 之间的数字。\n";
    }
}

# 获取最终选中的目录
my $chosen_dir = $directories[$selected_index];
print "你选择了：$chosen_dir\n";

二、用CPAN模块简化开发 #

如果想更高效地实现这类交互式选择，Perl 的 CPAN 仓库里有很多现成的模块可以用，比如 Term::Select 或者 Term::Choose，它们封装了输入验证、界面渲染等逻辑，代码会简洁很多。

示例：用Term::Select实现 #

首先需要安装模块（在终端执行）：

cpanm Term::Select

然后编写代码：

#!/usr/bin/perl
use strict;
use warnings;
use Term::Select;

# 获取当前目录下的子目录
my @directories = grep { -d } glob('*');

if (@directories == 0) {
    print "当前目录下没有子目录。\n";
    exit 1;
}

# 直接调用select函数弹出选择界面
my $chosen_dir = select(@directories);
print "你选择了：$chosen_dir\n";

这个模块会自动生成带编号的选择列表，处理无效输入，甚至支持上下箭头选择，体验比手写实现更流畅～

内容的提问来源于stack exchange，提问作者Eva Cheung