Excel::Writer::XLSX 在单元格上附加文本

Question

我查看了文档，目前找不到。我正在使用“Excel::Writer::XLSX”将文本写入 excel。

问题是：如何在单元格上附加任何文本。假设单元格 A1 已经写了“abc”，我怎么能在它后面加上“def”和任何分隔符。最后 A1 单元格应该有“abc-def”。

目前它覆盖了旧数据，只显示 "def" 。

File has say :  
Hostname name abc
Random Lines 
Hostname name def
Random Data 



open my $FH, '<', $filenames or die $!;
while(<$FH>)
{
            if($_ =~ /^Hostname+\s+name+\s(.*)/){
            my $hostname = $1;
            print "\nHostname : $1\n";      
                $worksheet->write(0, 0, $hostname);
            }
}

现在，如果您查看代码..当第一个正则表达式匹配其在单元格上的写为 abc ...现在当正则表达式匹配下一次...它删除 abc 并写入 def..我想以某种方式附加它...

提前致谢。

Answer 1

Excel::Writer::XLSX 在您创建临时文件时不会公开读取临时文件的功能。您需要将值保存在循环之外：

use strict;
use warnings;

my $hostname = '';
my $delimiter = '-';
open my $FH, '<', $filenames or die $!;
while(<$FH>)
{
    if($_ =~ /^Hostname+\s+name+\s(.*)/){
        $hostname .= $delimiter if ($hostname);
        $hostname .= $1;
        print "\nHostname : $hostname\n";      
    }
}
$worksheet->write(0, 0, $hostname);

破解内部数据结构以获取临时值this 是这样说的：

# Write a shared string or an in-line string based on optimisation level.
if ( $self->{_optimization} == 0 ) {
    $index = $self->_get_shared_string_index( $str );
}
else {
    $index = $str;
}
$self->{_table}->{$row}->{$col} = [ $type, $index, $xf ];

所以要读回字符串，无需优化：

my $value = $self->{_table}->{$row}->{$col}->[1];