Grant Hopwood wrote:
> -start-
> ># creation of hash of arrays
> > $sth = &DoSQL($sql);
> > while (($item, $cost, $charge) = $sth->fetchrow_array()) {
> > push @{$costtable{$item}}, ($cost, $charge);
> > }
>
> >Using symbolic references "@{$varname}" is not recommended practice.
> Perhaps a rethink of how you would like to >store you data?
>
> Unngh ignore that comment... my mistake...
Don't be too sure.
@{$costtable{$item}} could be an array obtained by dereferencing a reference
stored in $costtable{$item}. Or, it could be a symbolic reference to an
array created using a scalar stored in $costtable{$item}. It all depends on
what's stored in $costtable{$item} -- and, of course, on whether use strict
'refs' is engaged. Scott's code doesn't include any indication that he's
using the strict pragma.
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
