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

使用Spreadsheet :: SimpleExcel

1 个答案: