>
> You could do it like this:
>
> while (@row = fetchrow_array()) {
> push @$perl, {
> TRADE_DATE => $row[0],
> TRADE_TIME => $row[1],
> FIRSTNAME => $row[2],
> LASTNAME => $row[3],
> EXCHANGE => $row[4],
> SYMBOL => $row[5],
> };
> }
>
Thanks Bob! It worked and it seems like had to de-reference the array, am
I right? Is that what the @$perl is doing? It worked, and now I am trying
to understand why.
-rs
--
It's all a matter of perspective. You can choose your view by choosing
where to stand.
Larry Wall
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
