使用Spreadsheet::SimpleExcel

Question

我正在尝试学习如何在Perl脚本中使用模块。

我需要根据两列对一个Excel文件进行排序，并将结果写入一个新的文件，这可以使用Spreadsheet::SimpleExcel实现

$excel->sort_data($file,12,'ASC');
$excel->sort_data($file,11,'DESC');

$excel->output_to_file("my_excel.xls") or die $excel->errstr();

但是，如何将输入文件提供给$excel或从输入文件加载数据呢？

Answer 1

SimpleExcel不会为您读取/解析现有的Excel文件。首先需要使用Spreadsheet::ParseExcel加载文件，然后在SimpleExcel中创建一个新的工作表，插入数据，然后可以对其进行排序。代码是未经测试的，但它应该让你知道如何去做。

#!/usr/bin/perl

use strict; use warnings;

use Spreadsheet::ParseExcel;
use Spreadsheet::SimpleExcel;

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

my $output = Spreadsheet::SimpleExcel->new();

my $worksheet = $input->worksheets(0);
$output->add_worksheet($worksheet->get_name);

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

for my $row ( $row_min .. $row_max ) {

  my @row_data;

  for my $col ( $col_min .. $col_max ) {
    my $cell = $worksheet->get_cell( $row, $col );
    next unless $cell;
    push @row_data, $cell->value();
  }

  $output->add_row($worksheet->get_name, \@row_data);
}

$output->sort_data($worksheet->get_name, 12, 'ASC');
$output->sort_data($worksheet->get_name, 11, 'ASC');

$output->output_to_file('MyOutputFile.xls');