PracticeDev/study_perl/read_spreadsheet.pl

9 lines
136 B
Perl
Raw Normal View History

2022-12-20 17:31:11 +08:00
#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::Read;
my $workbook = ReadData ($ARGV[0]);
print $workbook->[1]{A3} . "\n";