Perl bir karma bir elektronik tabloya veri dökümü

Question

Anahtar ve Değerler (dizi) ile bir hash var.

use strict; 
use warnings; 
use Excel::Writer::XLSX; 

my $workbook = Excel::Writer::XLSX->new('c:\TEMP\filename.xlsx'); 
my $worksheet = $workbook->add_worksheet(); 

my $row = 1; 
my $col = 1; 

foreach my $k (keys %hash) 
{ 
    $worksheet->write($row, $col)->{Value} = $k;    # title 
    $worksheet->write($row, $col++,)->{Value} = $hash{$k};  # value 
    $row++; 
} 

Akım Çıkış
tanımlanmamış bir değere yöntemi "add_worksheet" Aranamıyor

İstenilen Çıktı

: Bir e-tablo

%hash 
    key1 -> foo bar 
    key2-> john adam gill 
    key3-> apple banana mango orange 

Kod onları dökümü istiyorum

Answer 1

Excel::Writer::XLSX->new başarısız görünüyor. Ne yaptığını görmek için new numaralı telefonu aradıktan sonra bu kodu ekleyin:

if (not defined $workbook) 
{ 
    die "Failed to create spreadsheet: $!"; 
}