Perl：如何用Text::Table类模块将可变行列的二维数组转为命令行表格

嘿，这个需求太常见了！不管你的二维数组有多少行多少列，Perl的Text::Table或者Text::ANSITable都能自动适配，完美生成整齐的命令行网格。下面给你一步步拆解实现方法：

方法一：用Text::Table（轻量基础款） #

Text::Table是Perl生态里处理文本表格的经典模块，简单易用，自动计算列宽，完全支持行列数动态变化。

步骤1：安装模块 #

先确保你安装了这个模块，用cpanm一键安装：

cpanm Text::Table

步骤2：示例代码 #

下面是完整的实现，能自动识别你的二维数组结构（首行作为列标题）：

use strict;
use warnings;
use Text::Table;

# 示例可变行列的二维数组
my $data_grid = [
    ['姓名', '年龄', '城市'],       # 首行是列标题
    ['Alice', 28, 'New York'],
    ['Bob', 32, 'London'],
    ['Charlie', 25, 'Paris'],
    # 你可以随便加行加列，代码都能自动适配
];

# 提取标题行和数据行
my ($headers, @data_rows) = @$data_grid;

# 创建表格对象，传入标题
my $table = Text::Table->new(@headers);

# 加载数据行
$table->load(@data_rows);

# 输出表格
print $table;

关键说明 #

• Text::Table->new(@headers)：用标题行初始化表格，模块会自动记录列数。
• load(@data_rows)：加载所有数据行，模块会遍历所有内容，计算每列的最大宽度，确保输出对齐。
• 如果你的数组只有标题行（没有数据），或者数据行列数和标题不一致，模块也会智能处理（比如补空单元格）。

方法二：用Text::ANSITable（美观进阶款） #

如果想要更美观的输出（比如彩色标题、不同边框样式），Text::ANSITable是更好的选择，它同样支持动态行列适配，还能输出ANSI彩色效果。

步骤1：安装模块 #

cpanm Text::ANSITable

步骤2：示例代码 #

use strict;
use warnings;
use Text::ANSITable;

my $data_grid = [
    ['产品', '价格', '库存'],
    ['笔记本电脑', 8999, 12],
    ['无线耳机', 1299, 34],
    ['鼠标', 99, 100],
];

my ($headers, @data_rows) = @$data_grid;

# 创建表格对象，设置样式（可选，默认也很好看）
my $table = Text::ANSITable->new(
    columns => $headers,
    border_style => 'ASCII::Single',  # 边框样式，还有很多可选比如'UTF8::Double'
    color_theme => 'Default::Gradation',  # 彩色主题
);

# 添加数据行
$table->add_row($_) for @data_rows;

# 输出表格
print $table->draw;

额外技巧 #

• 你可以通过border_style切换不同的边框（比如UTF-8的双线边框），color_theme设置彩色样式，让表格更醒目。
• 如果需要导出表格为其他格式（比如CSV），这两个模块也都支持相关方法（比如Text::Table的csv方法）。

边界情况处理 #

• 如果你的二维数组为空：可以加个简单判断，先检查数组是否有元素，避免报错。
• 如果数据行列数和标题行不一致：模块会自动补全空单元格，或者截断过长的内容（可以通过配置调整行为）。

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