getting the column names of the table in DB testing

[koti688]

how to get the column names and the values of them in select statment.

I have a packaze like this named ADB.pm

package ADB;
 
use DBI;
 
@ISA = ('Exporter');
@EXPORT_OK = ("Connection_check", "new","select_db","insert_db","delete_db","update_db");
 
sub new
{
    my $class = shift;
    my $self = {
        _pf => shift,
        _db => shift,
        _host => shift,
        _port => shift,
        _user => shift,
        _pass => shift
    };
    $dbh = Connection_check($self);
    #$self->{_dbh} = $dbh;
    bless $self, $class;
    return $self;
}
 
sub Connection_check {
    my($self ) = @_;
    $dsn = "DBI:$self->{_pf}:$self->{_db};$self->{_host};$self->{_port}";
    #$dsn = "DBI:mysql:database=$self->{_db};host=$self->{_host};port=$self->{_port}";
    $dbhc = DBI->connect($dsn,$self->{_user},$self->{_pass})or die "Unable to connect: $DBI::errstr\n";
    return ($dbhc)
}
 
### Retrieving the Rows ########
 
sub select_db{
  my ($obj,$sel) = @_;
  my $selnew = $dbh->prepare($sel);
  $selnew->execute or die "Unable to connect: $DBI::errstr\n";
  my @AoA;
  my @FinArr;
  while (@AoA = $selnew->fetchrow_array)
    {
      push @FinArr, [@AoA];
    }
 
  return @FinArr;
}
 

and perl file adb.pl like this

#!/usr/bin/perl
 
use DBI;
use DBD::mysql;
use Utils::ADB;
 
 
$object = new ADB( "mysql","adb", "192.168.106.218", 3306, "root", "root");
 
my @records = $object -> select_db ("select * from users");
 
foreach $recRef (@records) {
  print join ("   ", @$recRef),"\n";
}
 
print "\n \n";
 

when i execute adb.pl it displays the table results blidly. i need to get the column names also with the respective values. Can u please tell me which modification i need to do in the code
results what i am getting are like this
1 admin admin 1 3 3
2 demouser 111111 1 1 1


i want the column names to be print for them.

[numberwhun]

You aren't really going to be able to retrieve the column names from the select statement. Instead, you are going to have to do another db query statement to do either a "describe <tablename>" or a "show columns from <tablename>". They both do the same thing. You can then write a bit of code to parse out the column names so you can print them before your data is printed.

Regards,

Jeff

[eWish]

I would suggest that you define the table names rather than using the *. This way you are only getting the data from the columns you need.

--Mork

[KevinADC]

@eWish
naa-noo naa-noo :)