excel - 在 perl 中使用 Excel::Writer::XLSX 构建正确的电子表格

Question

作为一个新的 perl 用户，没有太多经验是很难理解一切的。

Bellow 是 perl 脚本的一部分，它应该通过解析自定义软件生成的文本文件来构建电子表格。执行后通过perl构建xlsx，在指定列的每一行填充产品组，在下一列插入产品。当我有太多产品时，它们最终会被插入给定组的下一列，下一列，等等。
理想情况下，我希望将多个产品插入同一产品列的下一行。

目前:

===========================

集团 |产品_1 |产品切割_2 |

============================

理想情况下:

===================

集团 |产品1 |

===================

(空白) |产品2 |

===================

(空白) |产品3 |

===================

这将如何实现？

以下是当前代码的片段:

    my $product_regex ='^Newly listed product: (.*)$';
    if ($line =~ /$product_regex/) {
            $change = $1;

            if ($some_flag == 1) {
                    $some_flag = 0;
                    push(@{ $product_changes{$group}  } , $change);
            }
    }


my $format = $workbook->add_format();
$format->set_text_wrap();
my $worksheet = $workbook->add_worksheet( 'Sheet1' );
# Writing 2 column headers
$worksheet->write( 0, 0, 'Group' );
$worksheet->write( 0, 1, 'Product' );
my $row;
$row = 1;
for my $key (sort keys %product_changes) {
    # To avoid evaluation from Excel, $key must be placed in quotes
    $worksheet->write($row, 0, $key, $format );
    $worksheet->write($row, 1, $product_changes{"$key"},$format );
    $row++;

Answer 1

不确定您是否正在寻求解析或编写输出的帮助。

这是一种编写输出的方法，假设您已将其解析为 arrayrefs 的散列，group => [ product_change, product_change, ...]

my $row = 1;
for my $key (sort keys %product_changes) {
    $worksheet->write($row, 0, $key, $format);
    for my $pc (@{$product_changes{"$key"}}) {
        $worksheet->write($row++, 1, $pc, $format);
    }
}