perl写入excel
本脚本功能：
从数据库获取数据并且写入excel文件；(据官网显示已经废弃此模块)
改用 Spreadsheet::ParseExcel及Spreadsheet::WriteExcel最好。前者是读Excel文件用的,后者用于写Excel文件。Spreadsheet::ParseExcel只能读95-2003格式的Excel文档，对于office 2007 Excel则要安装Spreadsheet::XLSX。
#!/usr/bin/env perl
use strict;
use DBI;
use Encode;
use OLE::Storage_Lite;
use Spreadsheet::WriteExcel::Big;
#数据库信息
my $host = {
user => 'root',
pass => '123456',
host => '127.0.0.1',
database => 'aries_host_info',
port => 3306,
table=>'host',
};
#输出文件格式
my ($sec,$min,$hour,$mday,$mon,$year) = (localtime)[0..5];
($sec,$min,$hour,$mday,$mon,$year) = (
sprintf("%02d", $sec),
sprintf("%02d", $min),
sprintf("%02d", $hour),
sprintf("%02d", $mday),
sprintf("%02d", $mon + 1),
$year + 1900
);
my $date="$year$mon$mday$hour$min";
#输出excel名字 邮件实体附件
my $excel_file="${date}.xls";
my @cols=('A:A','B:B','C:C','D:D','E:E','F:F','G:G','H:H','I:I','J:J',
'K:K','L:L','M:M','N:N','O:O','P:P','Q:Q','R:R','S:S','T:T','U:U',
'V:V','W:W','X:X','Y:Y','Z:Z','AA:A','BB:B','CC:C','DD:D','EE:E',
'FF:F','GG:G','HH:H','II:I','JJ:J','KK:K','LL:L','MM:M','NN:N',
'OO:O','PP:P','QQ:Q','RR:R','SS:S','TT:T','UU:U','VV:V','WW:W',
'XX:X','YY:Y','ZZ:Z');
#连接数据库
my $dbh=DBI->connect("DBI:mysql:$host->{database};host=$host->{host};port=$host->{port}",$host->{user},$host->{pass},{RaiseError=>1});
#设置字符集
$dbh->do ("set character_set_client = 'utf8'");
$dbh->do ("set character_set_connection = 'utf8'");
$dbh->do ("set character_set_results = 'utf8'");
#sql 语句
my $sql=qq(select * from $host->{table};);
my $sth=$dbh->prepare($sql) or die 'Unable to perpare our query:'.$dbh->errstr."\n";
my $results=$sth->execute() or die 'Unable to execute our query:'.$dbh->errstr."\n";
#打印出sql的select行数到桌面、
if ($results == 0){
print "查询结果 : N/A";
}else{
#print "$sql cmd find $results rows.\n";
print "查询结果：$results 行.\n";
}
#从数据库查询结果的列名
my @cols_name = @{$sth->{'NAME'}};
if ($#cols_name > $#cols)
{
print "result table fields overflow!(max num. > ".($#cols+1).")\n";
exit;
}
print "正在写入excel...\n";
#创建excel文件
my $excel = Spreadsheet::WriteExcel::Big->new($excel_file) || die "excel 文件创建失败: $!";
#创建 excel sheet
my $sheet = $excel->add_worksheet('anbound');
#excel文件格式
my $title_style = $excel->add_format();
$title_style->set_size(11);
$title_style->set_bold();
$title_style->set_align('center');
my $sheet_col = 0; #列信息
#将结果输出到excel 文件
for (my $i=0; $i<scalar @cols_name ;$i++) #列信息
{
$sheet->set_column($cols[$i], length($cols_name[$i])+20);
$sheet->write($sheet_col,$i,$cols_name[$i],$title_style);
}
#冻结表首行
$sheet->freeze_panes(1, 0);
while (my @row = $sth->fetchrow_array)
{
$sheet_col++;
for (my $i=0; $i< scalar @cols_name ;$i++)
{
next if ($row[$i] eq ''); #无信息，就不写入
Encode::_utf8_on($row[$i]); #把$row[i]当作utf8来处理
$sheet->write($sheet_col, $i,$row[$i]);
}
}
print "excel写入完成!\n";