PracticeDev/study_perl/read_spreadsheet.pl

9 lines
136 B
Perl
Executable File

#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::Read;
my $workbook = ReadData ($ARGV[0]);
print $workbook->[1]{A3} . "\n";