<?xml version="1.0" encoding="windows-1252"?>
<node id="766807" title="Re^3: Topics in Perl Programming: Table-Mutation Tolerant Database Fetches with DBI" created="2009-05-29 01:07:34" updated="2009-05-29 01:07:34">
<type id="11">
note</type>
<author id="469796">
twotone</author>
<data>
<field name="doctext">
&lt;p&gt;
Assuming you have already prepared and executed statement handle $sth, $sth-&gt;{NAME} will return an array ref of the column names, so
&lt;/p&gt;

&lt;code&gt;
my @columns = @{$sth-&gt;{NAME}};
&lt;/code&gt;

&lt;p&gt;
gives you an array of your column names.
&lt;/p&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-469796"&gt;
--------------&lt;br /&gt;
www.theduttons.com
&lt;/div&gt;&lt;/div&gt;</field>
<field name="root_node">
43748</field>
<field name="parent_node">
43755</field>
</data>
</node>
