Как добавить данные в файл Excel в Perl - PullRequest
0 голосов
/ 20 октября 2018

У меня есть файл Excel в следующем формате:

Own,Test,Yes,No
ngh,y,4,3

У меня есть цикл foreach, который выводит строки кода, которые я хочу добавить в конец файла Excel:

foreach my $val(sort keys %hash) {

       my $own = $hash{$val}{own};
       my $test = $hash{$val}{test};
       my $yes = $hash{$val}{yes};
       my $no = $hash{$val}{no};

       print "$own, $test, $yes, $no\n";

}

Мой foreach печатает следующее:

    dfg,n,6,3
    hgf,y,7,4
    jsd,n,4,2
    lbg,y,7,1
    nyg,n,7,6

Я хочу добавить это заявление для печати в конец моего листа Excel, чтобы мой лист Excel выглядел следующим образомэто:

  Own,Test,Yes,No
  ngh,y,4,3
  dfg,n,6,3
  hgf,y,7,4
  jsd,n,4,2
  lbg,y,7,1
  nyg,n,7,6

Я пытался использовать WriteExcel и ParseExcel, но мне не удалось ничего распечатать на листе Excel.Любое руководство будет с благодарностью.

foreach my $val(sort keys %hash) {

           my $own = $hash{$val}{own};
           my $test = $hash{$val}{test};
           my $yes = $hash{$val}{yes};
           my $no = $hash{$val}{no};




my $file = "/C:/programs/Desktop/lsa/test.xlsm";

my $workbook = Excel::Writer::XLSX->new($file); 

open (my $fh, '>>', $file) or warn "cant open";

print $fh "$own,$test,$yes,$no\n";


}
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...