用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - perl代码库

Spreadsheet::ParseExcel (perl解析Excel文件)

2012-10-17 作者: 神马举报

[perl]代码库

QUOTE:
#!/usr/bin/perl -w
 
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtUnicode;
#gb support
 
my $oExcel = new Spreadsheet::ParseExcel;
 
die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV;
my $code = $ARGV[1] || "CP936";
#gb support
my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new ( Unicode_Map => $code );
#gb support
my $oBook = $oExcel->Parse ( $ARGV[0], $oFmtJ );
my ( $iR, $iC, $oWkS, $oWkC );
print "FILE :", $oBook-> {File} , "\n";
print "COUNT :", $oBook-> {SheetCount} , "\n";
 
print "AUTHOR:", $oBook-> {Author} , "\n"
if defined $oBook-> {Author};
 
for ( my $iSheet=0; $iSheet < $oBook-> {SheetCount} ; $iSheet++ )
{
    $oWkS = $oBook-> {Worksheet}[$iSheet];
    print "--------- SHEET:", $oWkS-> {Name}, "\n";
    for ( my $iR = $oWkS-> {MinRow} ;
            defined $oWkS-> {MaxRow} && $iR <= $oWkS-> {MaxRow} ;
            $iR++ )
    {
        for ( my $iC = $oWkS-> {MinCol} ;
                defined $oWkS-> {MaxCol} && $iC <= $oWkS-> {MaxCol} ;
                $iC++ )
        {
            $oWkC = $oWkS-> {Cells}[$iR][$iC];
            print "( $iR , $iC ) =>", $oWkC->Value, "\n" if ( $oWkC );
        }
    }
}


网友评论    (发表评论)

共1 条评论 1/1页

发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。


扫码下载

加载中,请稍后...

输入口令后可复制整站源码

加载中,请稍后...