I have two files like below.
1st file : mail.pl
-
#!/usr/bin/perl
-
use DBD::mysql;
-
use DBI;
-
use Utils::DBClass;
-
$object = new DBClass( "perltest", "localhost", 3306, "root", "sierra");
-
$object -> select_db ("select * from samples");
-
2nd file DBClass.pm in a folder named Utils.
-
package DBClass;
-
use DBI;
-
@ISA = ('Exporter');
-
@EXPORT_OK = ("Connection_check", "new","select_db","insert_db","delete_db","update_db");
-
sub Connection_check {
-
my($self ) = @_;
-
$dsn = "DBI:mysql:database=$self->{_db};host=$self->{_host};port=$self->{_port}";
-
$dbh = DBI->connect($dsn,$self->{_user},$self->{_pass});
-
return ($dbh)
-
}
-
sub new
-
{
-
my $class = shift;
-
my $self = {
-
_db => shift,
-
_host => shift,
-
_port => shift,
-
_user => shift,
-
_pass => shift
-
};
-
$dbh = Connection_check($self);
-
$self->{_dbh} = $dbh;
-
bless $self, $class;
-
return $self;
-
}
-
### Retrieving the Rows ########
-
sub select_db{
-
my ($obj,$sel) = @_;
-
my $sth1 = $dbh->prepare($sel);
-
$sth1->execute or die "SQL Error: $DBI::errstr\n";
-
my @row;
-
while (@row = $sth1->fetchrow_array)
-
{
-
print "@row \n";
-
}
-
}
-
I am Getting the output for the quiries i mentioned above as below:
1 Koti 555-5555
2 Siva 222-2222
3 Praneet 555-5555
4 nishitha 08649-257828
6 Anu 222-2222
7 Pradeep 555-5555
8 Asmit 222-2222
9 Surya 555-5555
My requirement is getting the out put with out using the "print" statement in the select_db function. i want to get the ouput using "return" function and using "array of arrays".
can anyone suggest me how to proceed .
