Perl | use DBI; use DBD::mysql; # - Anonymous - m6b5c4087

use DBI;
use DBD::mysql;

#.........
#.........

sub db_select {
   my $dbh=shift;
   my $sqlStr = shift;
   my @list;
   #my $dbh = get_dbh();
   my $sth = $dbh->prepare($sqlStr);
   $sth->execute() or return 0;
   @list = $sth->fetchrow_array();
   #$dbh->disconnect();
   if ($#list == 0) {
     return $list[0];
   } else {
     return @list;
   }
}