|
Try to execute this code.U ll get a good result.
#!/usr/bin/perl #
use strict;
use DBI;
use DBD::mysql;
my $dsn='DBI:mysql:training:10.101.1.1';
my $dbh = DBI->connect ($dsn,"training","training",{ RaiseError => 1, AutoCommit => 1});
die "Unable to connect to database : $Mysql::db_errstr\n" unless $dbh; $dbh->{mysql_auto_reconnec
+t} = 1;
for (my $i = 0; $i < 10; $i++)
{
warn scalar localtime, " auto_reconnect = $dbh->{mysql_auto_reconnect}.\n";
my $sql = qq{select Sno from NEW_FYS_DEIVEEGARAJA where Cost='349.99'};
my $sth = $dbh->prepare ($sql);
$sth->execute ();
while(my $a=$sth->fetchrow_array)
{
warn "name = $Sno\n";
sleep 1;
}
}
warn "OK\n";
|
