<?xml version="1.0" encoding="windows-1252"?>
<node id="985088" title="Re: Contents of array - Perl DBI question" created="2012-08-02 14:24:39" updated="2012-08-02 14:24:39">
<type id="11">
note</type>
<author id="616540">
moritz</author>
<data>
<field name="doctext">
&lt;p&gt;Because &lt;c&gt;push(@fields_B, \@record_B);&lt;/c&gt; pushes an array reference to &lt;c&gt;@fields_B&lt;/c&gt;, and that's how array references stringify. See [doc://perllol], [doc://perlreftut], [doc://perlref], [doc://perldsc].

&lt;p&gt;Als you probably should write

&lt;pre&gt;
while(&lt;b&gt;my @row_B&lt;/b&gt; = $sth_B-&gt;fetchrow_array()) {
   ...
}&lt;/pre&gt;

&lt;p&gt;to avoid over-sharing of &lt;c&gt;@row_B&lt;/c&gt;.

&lt;!-- Node text goes above. Div tags should contain sig only --&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-616540"&gt;
[http://perl6.org/|Perl 6 - the future is here, just unevenly distributed]
&lt;/div&gt;&lt;/div&gt;</field>
<field name="root_node">
985086</field>
<field name="parent_node">
985086</field>
</data>
</node>
