Perl 循环输出到 Excel 电子表格

Question

我有一个 Perl 脚本，其相关部分发布在下面。

# Pull values from cells
        ROW:
        for my $row ( $row_min + 1 .. $row_max ) {
            my $target_cell   = $worksheet->get_cell( $row, $target_col);
            my $response_cell = $worksheet->get_cell( $row, $response_col);

            if ( defined $target_cell && defined $response_cell ) {
                my $target   = $target_cell->value();
                my $response = $response_cell->value();

# Determine relatedness
                my $value      = $lesk->getRelatedness($target, $response);

# Copy output to new Excel spreadhseet, 'data.xls'
                my $workbook1  = Spreadsheet::WriteExcel->new('data.xls'); 
                my $worksheet1 = $workbook1->add_worksheet();
                $worksheet1->set_column(0, 3, 18);
                my $row = 0;

                foreach ($target) {
                $row++;
                $worksheet1->write( $row, 0, "Target      = $target\n");
                $worksheet1->write( $row, 1, "Response    = $response\n");
                $worksheet1->write( $row, 2, "Relatedness = $value\n");
                }
            }
        }

该脚本使用 Perl 模块 ParseExcel 和 WriteExcel。输入数据电子表格是两列下的单词列表，一列标记为“目标”，另一列标记为“响应”。该脚本获取每个目标单词和每个响应单词，并计算它们之间的相关性值（这就是

$lesk->getRelatedness

代码部分正在做的事情。它调用一个名为 WordNet::Similarity 的 Perl 模块来计算单词之间的相关性度量）。

所有这些都工作得很好。问题是我正在尝试将输出（相似度度量，或此脚本中的 $value）写入新的 Excel 文件。无论我对代码做什么，它给我的唯一输出就是最后一个目标和响应词之间的相关性。它忽略了所有其余的。

但是，只有当我尝试写入 Excel 文件时才会出现这种情况。如果我使用“打印”功能，我可以在命令窗口中看到所有输出。我总是可以将其复制并粘贴到 Excel 中，但如果我可以自动化执行此操作会容易得多。知道问题是什么吗？

Answer 1

您每次都将 $row 的值重置为 0。

Answer 2

问题解决了。我只需要把这些

my $workbook1 = Spreadsheet::WriteExcel->new('data.xls'); 
my $worksheet1 = $workbook1->add_worksheet();

行移到脚本的另一部分。由于它们位于“for”语句中，因此程序每次运行循环时都会覆盖“data.xls”文件。