excel wykresy używające perl

Question

i am problem, gdy uruchomiłem skrypt jego błąd dawania jak nie można zlokalizować metodę obiektu "add_chart" za pośrednictwem pakietu "Arkusz kalkulacyjny :: WriteExcel" w line_column.pl linii 33. Czy mogę wiedzieć, jaki jest problem tutaj? Używam perl, v5.8.5 zbudowany dla x86_64-linux. ! #/usr/bin/perl -w

############################################################################### 
# 
# A simple demo of Column charts in Spreadsheet::WriteExcel. 
# 
# reverse('©'), December 2009, John McNamara, jmcnamara@cpan.org 
# 

use strict; 
use Spreadsheet::WriteExcel; 

my $workbook = Spreadsheet::WriteExcel->new('chart_column.xls'); 
my $worksheet = $workbook->add_worksheet(); 
my $bold  = $workbook->add_format(bold => 1); 

# Add the worksheet data that the charts will refer to. 
my $headings = [ 'Category', 'Values 1', 'Values 2' ]; 
my $data = [ 
    [ 2, 3, 4, 5, 6, 7 ], 
    [ 1, 4, 5, 2, 1, 5 ], 
    [ 3, 6, 7, 5, 4, 3 ], 
]; 

$worksheet->write('A1', $headings, $bold); 
$worksheet->write('A2', $data); 


############################################################################### 
# 
# Example 1. A minimal chart. 
# 
my $chart1 = $workbook->add_chart(type => 'column'); 

# Add values only. Use the default categories. 
$chart1->add_series(values => '=Sheet1!$B$2:$B$7'); 

# Insert the chart into the main worksheet. 
$worksheet->insert_chart('E2', $chart1); 

Answer 1

Wystarczy dodać osadzone => 1 na wezwanie add_chart:

Perl

my $chart1 = $workbook->add_chart(type => 'column', embedded => 1);