如何将Text::Table::More生成的表格输出到文本文件

Text::Table::More的generate_table函数会直接返回生成好的表格字符串，你只需要把这个字符串写入目标文件即可，逻辑和你用Text::Table::Boxed时一致。

完整代码示例 #

#!perl
use 5.010001;
use strict;
use warnings;
use Text::Table::More qw/generate_table/;

my $rows = [
    # 替换为你的表格内容
    ['姓名', '年龄', '职业'],
    ['张三', 28, '程序员'],
    ['李四', 32, '设计师'],
];

# 打开文件并指定UTF-8编码
open(my $output_fh, '>:utf8', '/home/zmumba/Output/More_table.txt') 
    or die "打开文件失败: $!";

# 生成表格并写入文件
print $output_fh generate_table(
    rows => $rows,
    # 替换为你的表格配置属性
    border_style => 'light',
    header_row => 1,
    align => ['left', 'center', 'right'],
);

close($output_fh);

关键说明 #

• 打开文件时使用>:utf8模式，确保写入文件的内容是UTF-8编码，避免中文或特殊字符乱码
• generate_table返回的是完整的表格文本，直接通过文件句柄打印即可
• 如果需要对表格内容做额外处理，可以先把结果存到变量中，再写入文件：

  my $table_content = generate_table(
      rows => $rows,
      # 你的配置属性
  );
  print $output_fh $table_content;
  

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