perl 读数据库 写execl

保留一下

#!/usr/bin/perl  -w


use Spreadsheet::WriteExcel;

use DBI;

my $workbook = Spreadsheet::WriteExcel->new('perl.xls');

$worksheet = $workbook->add_worksheet();



my $dbh=DBI->connect('DBI:mysql:test;host=10.1.205.112;port=3306',

'foo', 'foo') or die("Failed to connect: $DBI::errstr\n");

# 我只从表foo中取了10行

my $sth=$dbh->prepare("select * from foo limit 10");

$sth->execute;

my $row = 0;

while(@row = $sth->fetchrow_array){

my $col = 0;

while($col < $#row+1){



$worksheet->write($row, $col, $row[$col]);

$col++;

}

$row++;

}