Here's the problem restated another way. Here's a script to read Excel XLSX cell values using Spreadsheet::Read:
#!/usr/bin/perl -w
use warnings;
use strict;
use Spreadsheet::Read;
my $name = "";
my $strain = "";
my $initdensity = "";
my $finaldensity = "";
my $avedensity = "";
my $book;
my $sheet;
my %sheet = ();
$book = ReadData ($inbook);
my @x = qw(F G H I J K);
for my $sheet_index (1 .. $sheet_count) {
$sheet = $book->[$sheet_index] or next;
foreach (@x) {
$name = $sheet{'F28'};
$strain = $sheet{'F29'};
$initdensity = $sheet{'F30'};
$finaldensity = $sheet{'F31'};
$avedensity = $sheet{'F32'};
print "Found sheet with label: $sheet{label}\n";
print "COL=$_ $name $strain $initdensity $finaldensity $avedens
+ity\n";
}
}
I need to after reading keys F28..F32 read G28..G32 through K28..K32. How can I key it on values from array @x?
Thanks,
Hammer