Next The Perl Hardware Store DC.pm Version 21

Adding a new Method to a Package

         my $sth = $dbh->query(...);
         error() unless defined $sth;
         my $num_records = $sth->numrows();
         for ($i=0; $i<$num_records; $i++) {
           # Get next record
           my %data = $sth->fetchhash();       
           # Do something with %data
         }


Next Copyright © 2003 M. J. Dominus