File "excel.pl"

Full Path: /home/analogde/www/XTRAIL/andre/PERL/excel.pl
File size: 1.38 KB
MIME-type: text/plain
Charset: 8 bit

   
      #!c:/perl/bin/perl -w
   
      use strict;
   
      use warnings;
   
       
   
      use Spreadsheet::ParseExcel;
   
            
   
       
   
      my @lignes=0;
  
       
  
      my $path = "c:\\t.txt";
  
       
  
      die "fichier non trouve !\n" if (! -s $path);
  
       
  
      open(FIC, ">>$path") or die "Can't open file: $!";
  
      @lignes = <FIC>;
  
       
  
       
  
  
       
  
      my $oBook =
      
  
       
  
      Spreadsheet::ParseExcel::Workbook->Parse('c:\un.xls')
  
       
  
      ;
  
      my($iR, $iC, $oWkS, $oWkC);
  
      foreach my $oWkS (@{$oBook->{Worksheet}}) {
  
         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 FIC "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC);
          
 
             }
      
 
         }
 
       
 
      }
 
       
      
 
      close FIC; 
      
         
      open(FIC, '<', $path) or die "Can't open file: $!"; # pour revenir au dbut du fichier
   
      while( <FIC> ) {
   
       push @lignes, $_;
   
       print $lignes[3];
   
      }
   
      close FIC;