perl模块在win7下安装求教

火星人1

我想用perl处理excel文件，网上查到了一种方法是需要安装IO::Scalar和Spreadsheet::Read模块。
我查到的win7下的安装方法如下：
ppm install dmake
perl Makefile.PL
dmake
dmake test
dmake install
但在dmake test步出现了下列问题：
t/10_basics.t .. Can't locate Test/NoWarnings.pm in @INC (@INC contains: D:\Soft
Ware\Program\Spreadsheet-Read-0.46\blib\lib D:\SoftWare\Program\Spreadsheet-Read
-0.46\blib\arch D:/Perl/site/lib D:/Perl/lib .) at t/10_basics.t line 7.
BEGIN failed--compilation aborted at t/10_basics.t line 7.
t/10_basics.t .. Dubious, test returned 2 (wstat 512, 0x200)
Failed 99/99 subtests
我本以为test只是个测试，不会影响下一步，就继续下一步。完成之后，编个程序，想调用ReadData （）函数，结果报错：
Parser for XLS is not installed at excel.pl line 4
劳烦perl爱好者们帮分析一下什么原因，多谢

nsnake_cu

excel.pl的源码都不放上来
我不知道Spreadsheet::Read能不能出来2003以上的格式，我只处理过2000的格式是没问题的

zhh124

用CSV代替excel格式吧.

火星人1

回复 2# nsnake_cu


    #!/usr/bin/perl
    use Spreadsheet::Read;
    my $file = 'D:\\Learning\\Book1.xls'; #需要处理的文件
    my $spreadsheet = ReadData ($file) or die "$!";
    my $sheet_count = $spreadsheet->[0]{sheets} or die "No sheets in $file\n"; #记录有几个sheet

  for my $sheet_index (1 .. $sheet_count)
  {
  $sheet = $spreadsheet->[$sheet_index] or next;
   printf("%s - %2d: [%-s] %3d Cols, %5d Rows\n",
             $file,$sheet_index,$sheet->{label},$sheet->{maxcol},$sheet->{maxrow});
    for my $row (1 .. $sheet->{maxrow}) {
   print join "\t" => map {$sheet->{cell}[$_][$row] // "-" } 1 .. $sheet->{maxcol};
   print "\n"
                                         };
   }

这是源码

wxlfh

写Excel文件用 Spreadsheet::WriteExcel，解析Excel文件用 Spreadsheet:arseExcel。

Windows环境用 Win32::OLE，特别方便。

另，Windows环境Perl可以用ActivePerl，装模块可以用 PPM。

火星人1

回复 3# zhh124


    我试了一下，csv格式的倒是可以读出来！

火星人1

回复 5# wxlfh


    多谢！但我还是没搞清楚dmake test为什么会报错？