Perl使用Excel模块时如何在单元格内换行而非写入下一单元格

问题根源 #

现有代码逐行读取文件后，按递增行号调用write()分别写入A1、A2、A3……单元格，每次write调用对应独立单元格，因此内容会分散到不同行。此前尝试添加^@（即空字符\0）出现特殊字符，是因为该字符不是Excel支持的单元格内换行标记。

实现方法 #

单元格内写入多行内容只需要两个核心操作：

• 将所有待写入的行内容拼接为单个字符串，行与行之间用\n作为分隔符，注意提前去掉每行原有的系统换行符，避免出现多余空行
• 为目标单元格添加开启「自动换行」的格式属性，否则即使插入换行符，Excel默认也会将内容显示为单行

修正后代码 #

use strict;
use warnings;
use Excel::Writer::XLSX;

# 注意：该模块生成xlsx格式文件，请勿使用xls后缀，否则会导致文件格式损坏无法打开
my $WorkBook = Excel::Writer::XLSX->new('test.xlsx');
my $Worksheet = $WorkBook->add_worksheet();

# 定义开启自动换行的单元格格式
my $wrap_format = $WorkBook->add_format( text_wrap => 1 );

my $cell_content = '';
open (INPUT, '<', 'file') or die "无法打开输入文件: $!";
while (<INPUT>) {
    chomp; # 移除每行末尾自带的换行符
    $cell_content .= $_ . "\n"; # 拼接内容，用\n作为单元格内换行标记
}
close INPUT;

# 将拼接完成的多行内容写入A1单元格，应用自动换行格式
$Worksheet->write("A1", $cell_content, $wrap_format);

# 可选：调整列宽、行高，保证多行内容完整显示
$Worksheet->set_column('A:A', 20);
$Worksheet->set_row(0, 80);

$WorkBook->close();

注意事项 #

• 不要使用空字符、特殊控制符尝试实现换行，Excel仅识别\n作为单元格内换行标记，配合自动换行格式即可正常显示多行效果
• 若需要自定义内容样式，可以在add_format时传入对应参数，支持设置字体、对齐方式、边框、背景色等常用格式
• 写入完成后记得调用$WorkBook->close()，否则可能出现文件内容写入不完整的问题

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