这篇文章主要介绍了Perl如何读写Excel，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

生信分析是用的 .xls 文件 大多是文本格式的文件，是可以被Perl读取的，但遇到真的excel文件时，就不行了，这时候就需要使用模块

使用的模块为：

Spreadsheet::ParseExcel

Spreadsheet::WriteExcel

这里有两个读写Excel的代码，有需要的可以用来参考。

读Excel

#!/usr/bin/perl-wusestrict;useSpreadsheet::ParseExcel;useSpreadsheet::ParseExcel::FmtUnicode;my$parser=Spreadsheet::ParseExcel->new();my$formatter=Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>"CP936");#修正中文乱码问题my$workbook=$parser->parse($ARGV[0],$formatter);if(!defined$workbook){die$parser->error(),".\n";}formy$worksheet($workbook->worksheets()){#遍历sheetmy($row_min,$row_max)=$worksheet->row_range();my($col_min,$col_max)=$worksheet->col_range();formy$row($row_min..$row_max){#遍历行列formy$col($col_min..$col_max){my$cell=$worksheet->get_cell($row,$col);nextunless$cell;print"Row,Col=($row,$col)\n";print"Value=",$cell->value(),"\n";#读取单元格中的信息print"\n";}}print"\nAsheethasbeenread.\n\n";}

写Excel

#!/usr/bin/perl-wuseSpreadsheet::WriteExcel;#创建一个新的EXCEL文件my$workbook=Spreadsheet::WriteExcel->new('Hello.xls');#添加一个工作表$worksheet=$workbook->add_worksheet();#新建一个样式$format=$workbook->add_format();#Addaformat$format->set_bold();#设置字体为粗体$format->set_color('red');#设置单元格前景色为红色$format->set_align('center');#设置单元格居中#使用行号及列号，向单元格写入一个格式化和末格式化的字符串$col=$row=0;$worksheet->write($row,$col,'HiExcel!',$format);$worksheet->write(1,$col,'HiExcel!');foreach$row(10..20){foreach$col(10..20){$worksheet->write($row,$col,"$row+$col",$format);}}#使用单元格名称（例：A1），向单元格中写一个数字。$worksheet->write('A3',1.2345);$worksheet->write('A4','=SIN(PI()/4)');#添加更多工作表$worksheet=$workbook->add_worksheet();foreach$row(10..20){foreach$col(10..20){$worksheet->write($row,$col,"$row+$col",$format);}}exit;

感谢你能够认真阅读完这篇文章，希望小编分享的“Perl如何读写Excel”这篇文章对大家有帮助，同时也希望大家多多支持亿速云，关注亿速云行业资讯频道，更多相关知识等着你来学习!