У меня есть файл 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";
}