ÓÃPerl´Óoracleµ¼³ö°ÙÍò¼¶Êý¾Ýµ½excel

Perl´Óoracleµ¼³ö°ÙÍò¼¶Êý¾Ýµ½excel excel 2007 ¿ÉÒÔ´æ·Å1048576ÐС¢16384ÁеÄÊý¾Ý£»excel 2003´ó¸ÅÊÇ65535ÐÐ ÎÒ´ÓoracleÖе¼³ö30ÍòÐÐ60ÁеÄÊý¾Ýµ½excelÖл¨ÁËÔ¼8·ÖÖÓ¡£
    Èç¹ûÄ㻹ûÓа²×°perl£¬°´ÏÂÃæ²½Öè
    ²½Ö裺
    1¡¢ÏÂÔØ
²¢°²×°perl v5.8.8£¬¿ÉÒÔʹÓÃperl £­v²é¿´ÊÇ·ñ°²×°³É¹¦£¬
    2¡¢ÊäÈëPPMÃüÁî´ò¿ªperlµÄ°ü¹ÜÀíÆ÷¡£ÕÒµ½²¢¸üÐÂDBI£¬
    2¡¢ÏÂÔØ
DBD-Oracle
-1.17.zip½âѹµ½c:\perl  ÔÚÃüÁîÐнøÈë¸ÃĿ¼ִÐУº ppm install dbd-oracle.ppd °²×°DBD£­oracle£»
    3¡¢°²×° Excel Ä£¿é£¬Èç¹ûÄãÄÜÁªÍø£¬Ö±½ÓʹÓÃÈçÏÂÃüÁî¼´¿É£º
        ppm install OLE::Storage_Lite
        ppm install Spreadsheet::ParseExcel
        ppm install Spreadsheet::WriteExcel4¡¢½«ÈçÏ´úÂë±£´æµ½d:\test.pl£¬¸ü¸ÄÀïÃæµÄoracleµÄÓû§ÃûºÍipµØÖ·£¬ÒÔ¼°¶Ë¿ÚºÅ£¬ÒÔ¼°sqlÓï¾ä
    5¡¢ÔÚÃüÁîÐнøÈëdÅÌÏÂÖ´ÐУºperl test.pl
    ´úÂ룺
    $ENV{NLS_LANG} = 'AMERICAN_AMERICA.ZHS16GBK';
    use strict;
    use DBI;
    use Win32::OLE;
    use POSIX qw(strftime);my $now_string=strftime "%Y-%m-%d-%H-%M-%S", localtime;my $ti_s =strftime "%S", localtime;
    my $ti_m=strftime "%M", localtime;
    my $ti_h=strftime "%H", localtime;
    my $ti_old=$ti_s+($ti_m*60)+($ti_h*3600);
    my $excel_file = "d:\\$now_string".".xlsx";
    #ÔÚ´ËÐÞ¸ÄÄãµÄsql
    my $sql  = "select * from table1";my($dbh,$sth,$row,$col,@field,$ele,$c_times,$residual,$cols,$cell_end);
    unlink $excel_file if (-e $excel_file);
    my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
  &n