Contents of array - Perl DBI question

Freezer has asked for the wisdom of the Perl Monks concerning the following question:

Hello there,

Please could anyone advise me why my array is something like:


ARRAY(0x943548)ARRAY(0x943548)ARRAY(0x943548)ARRAY(0x943548)
[download]

The code that produces this is like:


    while(@row_B = $sth_B->fetchrow_array()) {
    @record_B = @row_B;
    push(@fields_B, \@record_B);
    }
    $sth_B->finish();
[download]

Comment on Contents of array - Perl DBI question Select or Download Code

Replies are listed 'Best First'.
Re: Contents of array - Perl DBI question by moritz (Cardinal) on Aug 02, 2012 at 18:24 UTC
Because `push(@fields_B, \@record_B);` pushes an array reference to `@fields_B`, and that's how array references stringify. See perllol, perlreftut, perlref, perldsc. Als you probably should write while(my @row_B = $sth_B->fetchrow_array()) { ... } to avoid over-sharing of `@row_B`. Perl 6 - the future is here, just unevenly distributed	[reply] [d/l] [select]
Re: Contents of array - Perl DBI question by suaveant (Parson) on Aug 02, 2012 at 18:49 UTC
To expand on what moritz said, you also don't need to copy @row_B to @record_B before taking a reference. I believe fecthrow_arrayref re-uses the same ref, which requires you to copy the data, but fetchrow_array is returning you the list, so if you use my as moritz said, the ref will change each time you pull a record, simplifying. Of course, if all you want is an array of arrays of the data, look at fetchall_arrayref in the DBI documentation - Ant - Some of my best work - (1 2 3)	[reply]