從MySQL導(dǎo)出XLS數(shù)據(jù)庫工具

    這個(gè)腳本是使用Perl生成 xls文件的工具。依賴一些模塊，你可以在linux下使用，產(chǎn)生xls文件。使用方式是命令行+參數(shù)。非常方便這個(gè)腳本是使用Perl生成 xls文件的工具。依賴一些模塊，你可以在linux下使用，產(chǎn)生xls文件。使用方式是命令行+參數(shù)。非常方便。
    #!/usr/bin/perl
    #===============================
    # mysql to
    # lastmodify at 2005-1-5
    # copyright by hoowa
    #=============================
    use strict; #嚴(yán)格語法檢測(cè)
    use DBI; #引擎
    use Unicode::Map; #Unicode引擎
    #use Spreadsheet::WriteExcel; #Excel報(bào)表引擎
    use Spreadsheet::WriteExcel::Big; #大文件Excel報(bào)表引擎
    my $hostname='192.168.1.133';
    my $username='user';
    my $password='pass';
    my $dbname='db';
    my $trans_compress=1; #任何非一的數(shù)關(guān)閉到程序間傳輸壓縮
    $|=1;
    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');
    #解析來內(nèi)容
    if ($#ARGV != '1') {
    print qq~syntax: my2.pl <writefilename> "[where expression]"
    ~;
    exit;
    }
    $ARGV[1]=~ s//"http://g;
    warn qq~
    mysql to
    by hoowa.sun
    =====================
    sql: $ARGV[1]
    ~;
    my $dbh =
    DBI->connect("DBI:mysql:mysql_compression=$trans_compress;
    database=$dbname;host=$hostname",$username,$password);
    my $sth = $dbh->prepare("$ARGV[1]") || die $dbh->errstr;
    my $rows = $sth->execute() or die $sth->errstr;
    warn "rows: $rows found./n";
    my @cols_name = @{$sth->{'NAME'}};
    if ($#cols_name > $#cols) {
    print "table $ARGV[1] fields out of allow!!(max num. > ".($#cols+1).")/n";
    exit;
    }
    warn "write to: $ARGV[0]/n";
    #生成utf8編碼系統(tǒng)
    my $map = Unicode::Map->new("utf8");
    #產(chǎn)生報(bào)表
    my $report = Spreadsheet::WriteExcel::Big->new("$ARGV[0]") || die "不能生成報(bào)表文件：$!";
    #創(chuàng)建報(bào)表的工作表
    my $sheet = $report->add_worksheet('data_report');
    #創(chuàng)建格式
    my $title_style = $report->add_format(); $title_style->set_size(11); $title_style->set_bold(); $title_style->set_align('center');
    #初始化數(shù)據(jù)指針
    my $sheet_col = 0;
    #創(chuàng)建表格
    for (my $i=0;$i<=$#cols_name ;$i++) {
    $sheet->set_column($cols[$i], length($cols_name[$i])+4);
    $sheet->write_unicode($sheet_col,$i,$map->to_unicode($cols_name[$i]),$title_style);
    }
    $sheet->freeze_panes(1, 0);#凍結(jié)行
    while (my @row = $sth->fetchrow_array) {
    $sheet_col++;
    for (my $i=0;$i<=$#cols_name ;$i++) {
    next if ($row[$i] eq '');
    $sheet->write_unicode($sheet_col,$i,$map->to_unicode($row[$i]));
    }
    }
    warn "all done!!!/n";
    #結(jié)束
    END {
    $report->close() if ($report);
    $dbh->disconnect();
    }