Re: Another "Can't use string as an ARRAY ref"

[hippo]

Your useful print statement shows you that $plants->[$i]{'common'} has value "State Street Miyabe Maple". What then do you intend this expression from the following line to do?

$plants->[$i]{'common'}->[$jctr]{'sizes'}

That's clearly the equivalent of:

"State Street Miyabe Maple"->[$jctr]{'sizes'}

which is nonsense. You cannot dereference a scalar string like that. Does that make it clearer to you?

[bradcathey]

Brilliant. I'm a visual learner and this was very helpful. Now to figure out a solution. More to come...

[poj]

You might want to consider a simpler more SQL solution

#!perl
use strict;
use DBI;
use Data::Dumper;

my $dbh = create_db();

my $sql = 'SELECT P.common_name,S.plant_size,S.unit,G.abbr
           FROM plants as P
           LEFT JOIN sizes as S
             ON S.plantid = P.id
           LEFT JOIN growers as G
             ON  S.plantid    = G.plantid
             AND S.plant_size = G.plant_size';
my $sth = $dbh->prepare($sql);
$sth->execute();
my %hash=();
while (my @f = $sth->fetchrow_array){
  $hash{$f[0]}{$f[1].$f[2]}{$f[3]} = 1
}
print Dumper(\%hash);

Read more... (2 kB)
poj

[bradcathey]

I appreciate the SQL approach. It's so much easier the building stuff in raw Perl. My SQL chops aren't what yours are, but I'm going to dissect this to see how it works. Thanks.