ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      19 May 2004  07:55:53
 To : All
 Subject : Разобрать Excel-файл
 -------------------------------------------------------------------------------- 
 

 
  ОС - Windows98
 
  Установил
 Binary build 809 provided by ActiveState Corp. http://www.ActiveState.com
 ActiveState is a division of Sophos.
 Built Feb  3 2004 00:28:51
 
  Установил модули для работы с Excev файлами.
  Hо ни как не могу заставить работать.
  Выдает:
 
 Not enough arguments for OLE::Storage_Lite::new at lib/OLE/Storage_Lite.pm line
 888, near "IO::Scalar;"
 Compilation failed in require at C:/usr/site/lib/ParseExcel.pm line 176.
 BEGIN failed--compilation aborted at C:/usr/site/lib/ParseExcel.pm line 176.
 Compilation failed in require at _test.pl line 5.
 BEGIN failed--compilation aborted at _test.pl line 5.
 
 Вот скрипт
 
 = Вставка =
 #!/usr/bin/perl
 
 use strict;
 use lib qw( ./lib );
         use ParseExcel;
         my $oExcel = new ParseExcel;
 
         #1.1 Normal Excel97
         my $oBook = $oExcel->Parse('Dat/price.xls');
         my($iR, $iC, $oWkS, $oWkC);
         print "FILE  :", $oBook->{File} , "\n";
         print "COUNT :", $oBook->{SheetCount} , "\n";
         print "AUTHOR:", $oBook->{Author} , "\n";
         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);
                 }
             }
         }
 = Вставка =
 P.S. Hа прошлой версии Perl все работало на ура.
 
 * Ты бык не потому, что здоровый, а потому, что скотина.
 -- Hиколай
 ----------------------------------------------------------------------
 ---
  * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор