How about using "fetchrow_arrayref" ?

sample code snippet(Uses selectall_arrayref): 

my %Rec = ( # Table names, and Field attribs+Processing methods
  messages =>[ ["id",     sub{sprintf "%3d",@_}],
               ["date",   ,\&MyDateConverter],
               ["body",   sub{substr($_[0] . " " x 26,0,26)}],  #Max 2
+6
               ["fromid", sub{substr($user[$_[0]],0,10) . "->"}],
               ["toid",   sub{"->" .substr($user[$_[0]],0,10)}],
               ["computerid",sub{substr($computer[$_[0]],0,10)}],
               ["contenttypeid",   sub{substr($contenttype[$_[0]],0,10
+)}],
               ["cs_call_id",  sub{$_[0]}]
   ],
   usagesummary =>[
               ["id",     sub{sprintf "%3d",@_}],
               ["date",   \&MyDateConverter],
               ["fromid", sub{substr($user[$_[0]],0,10) . "->"}],
               ["toid",   sub{"->" .substr($user[$_[0]],0,10)}],
               ["messagecount",  sub{sprintf "%3d msgs",@_}],
               ["cs_call_id",  sub{$_[0]}]


   ]
);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime(time);
exists $ENV{TZ} or $ENV{TZ}= $isdst? "PDT" : "PST";

Load_Table("users",       \@user , 0);
Load_Table("computers",   \@computer, 1);
Load_Table("contenttypes",\@contenttype, 0);
Load_Table("DbConfigInt", \%DbConfigInt, 1);
Print_Details($_) for sort keys %Rec;
#---------------------------------------
sub Load_Table{
  my ($tableName,$arrayref,$printIt)=@_;
  my $count = 0;
  for ( @{$dbh->selectall_arrayref("SELECT * FROM $tableName")}  ){
      $count++;
      $printIt and print "\t $_->[0]\t$_->[1]   [$tableName]\n";
      if (ref($arrayref) eq "HASH"){
          $arrayref->{$_->[0]} = $_->[1];
          next;
      }
      $arrayref->[$_->[0]] = $_->[1]; # Index by Number, get the name.
  }
  print "\t---- Loaded $count entries from $tableName.\n";
}

[download]

     "As you get older three things happen. The first is your memory goes, and I can't remember the other two... " - Sir Norman Wisdom

In reply to Re: Controlling order of fields in report by NetWallah
in thread Controlling order of fields in report by hesco

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.