因为工作需要，给一些内容的结果需要转换成excel给上面看，所以用perl来实现这个事件，发现perl来写excel实在是太容易了。。我真想学老罗的讲”太容易了，实在是太容易了”.

    在 2000 年，Takanori Kawai 和 John McNamara 编写出了 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel 模块并将它们张贴在 CPAN 上，这两个模块使得在任何平台上从 Excel 文件抽取数据成为可能。

    下面就是这个模块的内容.

以下是代码片段：
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Encode; 
use Spreadsheet::WriteExcel; 
  
# 设置new一个对象出来，并写上需要存成什么名字的xls 
my $xls = Spreadsheet::WriteExcel->new( "fukaiss.xls" ); 
  
# xml的内容名字 
my $xlsContent = $xls->add_worksheet( ’report’ ); 
  
# 这是对格式的设置，我们可以设置一个标题的，一个内容的， 
# 我现在只设置一个内容 
my $contentStyle = $xls->add_format(); 
    $contentStyle->set_size( 8 ); 
    $contentStyle->set_bold(); 
    $contentStyle->set_align( ’center’ ); 
  
# 写表内容（格式是使用上面添加的表格式） 
# 这个中的A,B,C是设置的excel中上面行的字母 
# 这个地方中的文字我用了decode这样中文才能正常显示 
# 最后面的contentStyle是我上面设置的行风格 
$xlsContent->write( "A1", decode( ’utf8’, "名字" ), $contentStyle ); 
$xlsContent->write( "B1", decode( ’utf8’, "时间" ), $contentStyle ); 
$xlsContent->write( "C2", decode( ’utf8’, "语言" ), $contentStyle );               
  
#这是关闭，上面的内容设置成循环就能生成很多行了 
$xls->close();

建议继续学习：

1. JQuery实现Excel表格呈现    (阅读：46522)
2. 神马？用excel来做项目管理？    (阅读：42221)
3. perl更新/修改/删除文本文件内容    (阅读：9440)
4. perl大牛flw传说    (阅读：6515)
5. perl模块Getopt::Std用法及实例-从命令行读取参数模块    (阅读：5886)
6. [Perl] Template::Toolkit 模板技术.    (阅读：5369)
7. 在perl中连接和使用sqlite做数据存储    (阅读：5061)
8. Perl命令行常见用法及技巧    (阅读：4811)
9. perl的expect使用方法，实现非交互式登录。    (阅读：4496)
10. perl模块之MIME::Lite发送有附件的邮件    (阅读：4447)