perl生成excel文档的格式设置

#生成excel文档
my $workbook = Spreadsheet::WriteExcel->new('/home/loganalysis/data/hudong/docSoSearch/statKeywordsTop100.xls');
#各种数据的展现格式
my $normalFormat = $workbook->add_format(border => 1,align => "center",size=>12);
my $titleFormat = $workbook->add_format(bg_color => "yellow",border => 1,align=>"center",size=>12);
my $numFormat = $workbook->add_format(num_format=>'#,##0.00',border => 1,align=>"left");
my $percentFormat = $workbook->add_format(num_format=>'#,##0.00%',border => 1,align=>"center");
my $urlFormat = $workbook->add_format(border => 1,align => "left",size=>12);

my $normalFormat = $workbook->add_format(border => 1,align => "left",size=>12);
my $titleFormat = $workbook->add_format(border => 1,align=>"center",size=>12);
my $numFormat = $workbook->add_format(bg_color => "27",border => 1,align=>"right",size=>12);
my $tuchuFormat = $workbook->add_format(border => 1,align=>"left",size=>12);
$tuchuFormat->set_bg_color('27');
$tuchuFormat->set_bold();
my $normalrightFormat = $workbook->add_format(border => 1,align => "right",size=>12);

#生成excel表

my $worksheet = $workbook->add_worksheet(T("百科"));
my($row,$col)=(0,0);
#初始化表头行
$worksheet->write($row,$col++,T("分类"),$titleFormat);
$worksheet->write($row,$col++,T("PV"),$titleFormat);
$worksheet->write($row,$col++,T("IP"),$titleFormat);
$row++;
$col=0;
$worksheet->write($row,$col++,T("某类总量"),$tuchuFormat);
$worksheet->write($row,$col++,$a,$numFormat);
$worksheet->write($row,$col++,$b,$numFormat);
$row++;
$col=0;

$worksheet->set_column(0,0,40);#设置列表的宽度，第0列宽40
$worksheet->set_column(1,3,30);#设置列表的宽度，第1,2列宽30
$workbook->close();