Shell Programming and Scripting

#
# Generate Excel Spreadsheet
#
my $workbook = Spreadsheet::WriteExcel->new("$filename");
my $worksheet = $workbook->add_worksheet('cpu_stats');
# Write header into worksheet
my @header = ('00:00:00','%usr','%sys','%wio','%idle');
$worksheet->write_row(0,0,\@header);
# Write data into worksheet
$worksheet->write('A2',\@data);
# Close workbook
$workbook->close;

 
#
# Generate Excel Spreadsheet
#
my $workbook = Spreadsheet::WriteExcel->new("$filename");
my $worksheet = $workbook->add_worksheet('cpu_stats');
my $worksheet2 = $workbook->add_worksheet('chart1');
my $chart = $workbook->add_chart(type => 'line', embedded =>1);
# Write header into worksheet
my @header = ('00:00:00','%usr','%sys','%wio','%idle');
$worksheet->write_row(0,0,\@header);
# Write data into worksheet
$worksheet->write('A2',\@data);
# Add worksheet data to the chart
$chart->add_series(
 categories => '=$worksheet!$B$1:$E$1',
 values     => '=$worksheet',
 name       => 'chart1',
);
# Add chart labels
$chart->set_title (name=> '$host Performance Chart for Week Ending $week_ending');
$chart->set_x_axis (name=> 'Time 24(HR)');
$chart->set_y_axis (name=> 'Percentage');
# Insert chart into worksheet2
$worksheet2->insert_chart ('A1', $chart);
# Close workbook
$workbook->close;

values => '=$worksheet

 
Couldn't parse formula: =$worksheet! at sar_chart.tst line 83

 categories => '=cpu_stats!$B$1:$E$1',
 values     => '=cpu_stats',

#Hostname
my $host = hostname;
 
$chart->set_title (name=> print "$host" 'Performance Chart' );
$chart->set_x_axis (name=> 'Time "$(HR)');
$chart->set_y_axis (name=> 'Percentage');

$chart->set_title (name=> "$host Performance Chart" );