在Perl中编写OLE代码的简洁方法？

Question

我正在通过Win32::OLE以自动化的方式在Perl中创建Word文档。我当前的代码看起来是这样的，它的离开WINWORD.EXE的情况下，内存：

my $range = $select->Range; 
my $table = $doc->Tables->Add($range, scalar @rows, scalar @{ $rows[0] }); 
for my $rownum (0 .. $#rows) { 
    for my $colnum (0 .. $#{ $rows[$rownum] }) { 
     my @cellpos = ($rownum + 1, $colnum + 1); 
     my $data = $rows[$rownum][$colnum]; 
     $table->Cell(@cellpos)->Range->{'Text'} = $data; 
     1; 
    } 
} 

不过，如果我是重构每Microsoft recommendation for Visual Studio .NET我的代码，它应该是这样的：

my $range = $select->Range; 
my $tables = $doc->Tables; 
my $table = $tables->Add($range, scalar @rows, scalar @{ $rows[0] }); 
for my $rownum (0 .. $#rows) { 
    for my $colnum (0 .. $#{ $rows[$rownum] }) { 
     my @cellpos = ($rownum + 1, $colnum + 1); 
     my $data = $rows[$rownum][$colnum]; 
     my $cell = $table->Cell(@cellpos); 
     my $cell_range = $cell->Range; 
     $cell_range->{'Text'} = $data; 
    } 
} 

这段代码可以完成这项工作，但它对我来说非常“嘈杂”。有没有更干净的方法来做到这一点？

Answer 1

它可以稍微改善。不需要变量@cellpos和$data变量，并且在内循环内使用提取对@rows的当前元素的引用更为整齐。

my $range = $select->Range; 
my $tables = $doc->Tables; 
my $table = $tables->Add($range, scalar @rows, scalar @{ $rows[0] }); 
for my $rownum (0 .. $#rows) { 
    my $cols = $rows[$rownum]; 
    for my $colnum (0 .. $#$cols) { 
     my $cell = $table->Cell($rownum + 1, $colnum + 1); 
     my $cell_range = $cell->Range; 
     $cell_range->{Text} = $cols->[$colnum]; 
    } 
}