用perl生成带格式的excel（跨平台）
本文介绍如何用perl生成excel,而且excel的样式可以自己事先设计好，不需要在windows下生成。1.创建一个模板excel
新建一个test.xls文件，打开
自己设计样式如下：
2.把test.xls另存为xml表格 test.xml
3.用文本编辑器打开test.xml,我要介绍要用代码操作的地方
4.代码操作完后的结果，注意生成完后的文件的后缀必须改为.xls,这样就可以用excel直接打开了,只要有了模板excel之后，就可以在linux下把文件生成了。
5.代码，下面的代码使用时，注意：若是不是在web下使用，请把第1，2个print注释掉。使用时需要把代码保存为UTF-8格式，下面的m***cel="ms"+"excel",至于为什么，你懂的
my $filename="test.xls"; @data=(,,,,,); $RowCount=scalar(@data)+1; print "Content-type: Application/m***cel\n"; print "Content-Disposition: p_w_upload; filename='$filename'\n\n"; #输出excel格式 print <<EOFEXCELHEAD; <?xml version="1.0"?> <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:html="http://www.w3.org/TR/REC-html40"> <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office"> <Created>1996-12-17T01:32:42Z</Created> <LastSaved>2000-11-18T06:53:49Z</LastSaved> <Version>11.9999</Version> </DocumentProperties> <OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office"> <RemovePersonalInformation/> </OfficeDocumentSettings> <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel"> <WindowHeight>4530</WindowHeight> <WindowWidth>8505</WindowWidth> <WindowTopX>480</WindowTopX> <WindowTopY>120</WindowTopY> <AcceptLabelsInFormulas/> <ProtectStructure>False</ProtectStructure> <ProtectWindows>False</ProtectWindows> </ExcelWorkbook> <Styles> <Style ss:ID="Default" ss:Name="Normal"> <Alignment ss:Vertical="Bottom"/> <Borders/> <Font ss:FontName="宋体" x:CharSet="134" ss:Size="12"/> <Interior/> <NumberFormat/> <Protection/> </Style> <Style ss:ID="s23"> <Font ss:FontName="宋体" x:CharSet="134" ss:Size="12" ss:Color="#FFFFFF" ss:Bold="1"/> <Interior ss:Color="#000000" ss:Pattern="Solid"/> </Style> <Style ss:ID="s26"> <Borders> <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/> <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/> <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/> <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/> </Borders> </Style> <Style ss:ID="s27"> <Borders> <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="1"/> <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/> <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="1"/> <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="1"/> </Borders> <Interior ss:Color="#CCFFCC" ss:Pattern="Solid"/> </Style> </Styles> <Worksheet ss:Name="Sheet1"> <Table ss:ExpandedColumnCount="3" ss:ExpandedRowCount="$RowCount" x:FullColumns="1" x:FullRows="1" ss:DefaultColumnWidth="54" ss:DefaultRowHeight="14.25"> <Column ss:AutoFitWidth="0" ss:Width="99.75"/> <Column ss:AutoFitWidth="0" ss:Width="82.5"/> <Column ss:AutoFitWidth="0" ss:Width="99"/> <Row> <Cell ss:StyleID="s23"><Data ss:Type="String">响应时间(ms)</Data></Cell> <Cell ss:StyleID="s23"><Data ss:Type="String">带宽(Mbps)</Data></Cell> <Cell ss:StyleID="s23"><Data ss:Type="String">成功率(%)</Data></Cell> </Row> EOFEXCELHEAD my $i=0; for$i(0..$#data){ if($i % 2 == 0){ print <<EOFROW <Row> <Cell ss:StyleID="s26"><Data ss:Type="Number">$data[$i]</Data></Cell> <Cell ss:StyleID="s26"><Data ss:Type="Number">$data[$i]</Data></Cell> <Cell ss:StyleID="s26"><Data ss:Type="Number">$data[$i]</Data></Cell> </Row> EOFROW }else{ print <<EOFROW <Row> <Cell ss:StyleID="s27"><Data ss:Type="Number">$data[$i]</Data></Cell> <Cell ss:StyleID="s27"><Data ss:Type="Number">$data[$i]</Data></Cell> <Cell ss:StyleID="s27"><Data ss:Type="Number">$data[$i]</Data></Cell> </Row> EOFROW } } print <<EOFEXCELTAIL; </Table> <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel"> <Print> <ValidPrinterInfo/> <PaperSizeIndex>9</PaperSizeIndex> <HorizontalResolution>300</HorizontalResolution> <VerticalResolution>300</VerticalResolution> </Print> <Selected/> <Panes> <Pane> <Number>3</Number> <ActiveRow>1</ActiveRow> </Pane> </Panes> <ProtectObjects>False</ProtectObjects> <ProtectScenarios>False</ProtectScenarios> </WorksheetOptions> </Worksheet> </Workbook> EOFEXCELTAIL
页:
[1]