本文介绍如何用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=([12,8,98],[9,16,99],[7,4,67],[2,64,[3,[1,78]); ?
- ?
- ?
- ?
- $RowCount=scalar(@data)+1; ?
- ?
- ?
- ?
-
print?"Content-type:?Application/m***celn"; ?
- ?
-
print?"Content-Disposition:?attachment;?filename='$filename'nn"; ?
- ?
- ?
- ?
- #输出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][0]</Data></Cell> ?
- ?
-
????<Cell?ss:StyleID="s26"><Data?ss:Type="Number">$data[$i][1]</Data></Cell> ?
- ?
-
????<Cell?ss:StyleID="s26"><Data?ss:Type="Number">$data[$i][2]</Data></Cell> ?
- ?
- ???</Row> ?
- ?
- ?
- ?
- EOFROW ?
- ?
- ?
- ?
-
????}else{ ?
- ?
- print?<<EOFROW ?
- ?
- ????????<Row> ?
- ?
-
????<Cell?ss:StyleID="s27"><Data?ss:Type="Number">$data[$i][0]</Data></Cell> ?
- ?
-
????<Cell?ss:StyleID="s27"><Data?ss:Type="Number">$data[$i][1]</Data></Cell> ?
- ?
-
????<Cell?ss:StyleID="s27"><Data?ss:Type="Number">$data[$i][2]</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 ?
