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();