diff options
| -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}), |