perl的写excel文件

    因为工作需要，给一些内容的结果需要转换成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();