Rookie: Accessing specific element of excel->range array

[sdfgsd]

Hello All,

Here's the code. As you can see, I've put a range of excel values into the
array $cells. Before proceeding, I need to access one or two specific values
that remain constant in their location within the array.

My problem: I can't seem to understand how to access a specific
value/element in the array. See comment in the code. Thanks for any help.

========================================

my $cells = $worksheet->Range("A122")->{'Value'};

print "The content of this cell is: ", $@cells[0][2];
^^^^^^^^^^^
# According to the books and perldoc, this should work, but it doesn't?

foreach my $row (@$cells) {
foreach my $rec (@$row) {
$rec =~ s/^\s+//;
$rec =~ s/\s+$//;
$rec =~ s/[^a-zA-Z0-9 .-]//g;
print "$rec\n";
}
}

 

[sdfgsd]

Hello All,

Here's the code. As you can see, I've put a range of excel values into the
array $cells. Before proceeding, I need to access one or two specific values
that remain constant in their location within the array.

My problem: I can't seem to understand how to access a specific
value/element in the array. See comment in the code. Thanks for any help.

========================================

my $cells = $worksheet->Range("A122")->{'Value'};

print "The content of this cell is: ", $@cells[0][2];
^^^^^^^^^^^
# According to the books and perldoc, this should work, but it doesn't?

==========================================

I solved this by reassigning $cells to another array. Not sure if this is
the most elegant way, but it works...

my $cells = $worksheet->Range("A122")->{'Value'};
my @ArrCell = @$cells;

print "The content of this cell is: ", $ArrCell[0][1];

foreach my $row (@$cells) {
foreach my $rec (@$row) {
$rec =~ s/^\s+//;
$rec =~ s/\s+$//;
$rec =~ s/[^a-zA-Z0-9 .-]//g;
print "$rec\n";
}
}

 

[Jeff 'japhy' Pinyan]

my $cells = $worksheet->Range("A122")->{'Value'};

print "The content of this cell is: ", $@cells[0][2];

You want to do

$cells->[0][2]

 

[sdfgsd]

my $cells = $worksheet->Range("A122")->{'Value'};

print "The content of this cell is: ", $@cells[0][2];

You want to do

$cells->[0][2]

It works. Thanks!