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); 
      } 
} 

Теперь, если вы посмотрите на code..when первого регулярное выражения matach его запись на ячейке, как аЬс ... Теперь, когда матч регулярного выражения в следующий раз ... удалить а и писать def..I хотел каким-либо образом добавить его ...

благодарит заранее.

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];