excel - 使用电子表格::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

Spreadsheet::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');