PERL中如何读取EXCEL中的数据~~

anonimousboy

想从EXCEL中提取有用的数据??给个提示或是例子~谢谢~~

kkng09

http://homepage.tinet.ie/~jmcnamara/perl/PerlExcelFaq.html

anonimousboy

[quote]原帖由 "kkng09"]http://homepage.tinet.ie/~jmcnamara/perl/PerlExcelFaq.html[/quote 发表：
     
老大,那个页面访问不了~~还有没有别的地方可以找啊~我在GOOGLE里都搜不到~~

deathcult

google里怎么会搜不到。

http://www.google.com/search?q=perl+excel&ie=UTF-8&oe=UTF-8&hl=zh-CN&lr=

deathcult

参考一下这个 ：）
http://sedition.com/perl/delim_to_excel.html

anonimousboy

原帖由 "deathcult" 发表：
google里怎么会搜不到。

http://www.google.com/search?q=perl+excel&ie=UTF-8&oe=UTF-8&hl=zh-CN&lr=

   
谢谢deathcult老大,可能是我搜的方法不对,找的关键字太详细了,所以没找到几个,虽然找到了几个,但是我下了以后不会安装~~不好意思~

flora

用这个模块 Spreadsheet:arseExcel
在cmd中这样做：
$>;perl -MCPAN -e shell
cpan>;install Spreadsheet:arseExcel

就可以自动安装最新版本了：）
下面是我以前下载的一个应用它的例子
作为你的参考吧！  
  

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. use Spreadsheet::ParseExcel;
   
5. 
   
6. my $oExcel = new Spreadsheet::ParseExcel;
   
7. 
   
8. die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV;
   
9. 
   
10. my $oBook = $oExcel->;Parse($ARGV[0]);
    
11. my($iR, $iC, $oWkS, $oWkC);
    
12. print "FILE  :", $oBook->;{File} , "\n";
    
13. print "COUNT :", $oBook->;{SheetCount} , "\n";
    
14. 
    
15. print "AUTHOR:", $oBook->;{Author} , "\n"
    
16. if defined $oBook->;{Author};
    
17. 
    
18. for(my $iSheet=0; $iSheet < $oBook->;{SheetCount} ; $iSheet++)
    
19. {
    
20. $oWkS = $oBook->;{Worksheet}[$iSheet];
    
21. print "--------- SHEET:", $oWkS->;{Name}, "\n";
    
22. for(my $iR = $oWkS->;{MinRow} ;
    
23.      defined $oWkS->;{MaxRow} && $iR <= $oWkS->;{MaxRow} ;
    
24.      $iR++)
    
25. {
    
26.   for(my $iC = $oWkS->;{MinCol} ;
    
27.       defined $oWkS->;{MaxCol} && $iC <= $oWkS->;{MaxCol} ;
    
28.       $iC++)
    
29.   {
    
30.    $oWkC = $oWkS->;{Cells}[$iR][$iC];
    
31.    print "( $iR , $iC ) =>;", $oWkC->;Value, "\n" if($oWkC);
    
32.   }
    
33. }
    
34. }
    

复制代码

deathcult

to flora:
不错啊，我想加到置顶的例子贴里，ok?

flora

可以的：）
多谢

deathcult

应该谢你才对啊 ：）

已经测试成功！
另，
我做了一些修改（加了几行代码），使之支持GB2312。