Автоматизация задач Excel с использованием perl

Question

Мне нужно автоматизировать файл excel, я уже проверил Win32:OLE, просто хотел проверить, есть ли другие пути, кроме того, чтобы достичь аналогичной функциональности.

Заранее благодарен!

Answer 1

Cpan module Spreadsheet::ParseExcel является инструментом для read information from an Excel file. Примером здесь:

use warnings; 
use strict; 
use Spreadsheet::ParseExcel; 

my $parser = Spreadsheet::ParseExcel->new(); 
my $workbook = $parser->parse('Book1.xls'); 

if (!defined $workbook) { 
    die $parser->error(), ".\n"; 
} 

for my $worksheet ($workbook->worksheets()) { 

    my ($row_min, $row_max) = $worksheet->row_range(); 
    my ($col_min, $col_max) = $worksheet->col_range(); 

    for my $row ($row_min .. $row_max) { 
     for my $col ($col_min .. $col_max) { 

      my $cell = $worksheet->get_cell($row, $col); 
      next unless $cell; 

      print "Row, Col = ($row, $col)\n"; 
      print "Value  = ", $cell->value(),  "\n"; 
      print "Unformatted = ", $cell->unformatted(), "\n"; 
      print "\n"; 
     } 
    } 
}