diff options
author | dakkar <dakkar@thenautilus.net> | 2017-10-26 18:25:13 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2017-10-26 18:25:13 +0100 |
commit | 7e411a75b3bc4683a757d47606dd6ed3c126975b (patch) | |
tree | ea0ba6a1c6fd8fa5ef54ebae9f66ed74fb7d0fb5 | |
parent | aggiusta altezza dei '+' (diff) | |
download | inventario-7e411a75b3bc4683a757d47606dd6ed3c126975b.tar.gz inventario-7e411a75b3bc4683a757d47606dd6ed3c126975b.tar.bz2 inventario-7e411a75b3bc4683a757d47606dd6ed3c126975b.zip |
parse XLSX files
-rw-r--r-- | incantesimi/excel_to_incantesimi.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/incantesimi/excel_to_incantesimi.pl b/incantesimi/excel_to_incantesimi.pl index 2c2a987..d92a4d5 100644 --- a/incantesimi/excel_to_incantesimi.pl +++ b/incantesimi/excel_to_incantesimi.pl @@ -1,8 +1,9 @@ #!/usr/bin/perl use strict; use warnings; +use 5.024; use utf8; -use Spreadsheet::ParseExcel; +use Spreadsheet::ParseXLSX; use LaTeX::Encode; use Template; use Data::Printer; @@ -38,7 +39,7 @@ my ($input_filename,$output_filename)=@ARGV; die "$0 \$input \$output\n" unless $input_filename && $output_filename; -my $parser = Spreadsheet::ParseExcel->new(); +my $parser = Spreadsheet::ParseXLSX->new(); my $wb = $parser->parse($input_filename) or die $parser->error; @@ -75,7 +76,7 @@ sub sheet_2_latex { command => 'incantesimo', @_, ); - +say "going to write to ".$opts{output_filename}; my $spells = parse_table( $wb->worksheet($opts{sheet_name}) // $wb->worksheet($opts{sheet_idx}), |