perlquestion
himik
<p>Hello once again monkers!!
I have this code
<code>
use DBI;
sub simpleconnect
{
my $dbh;
eval {$dbh=DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port", $dbuser, $dbpass, {AutoCommit => 0});}
if ($dbh)
{
$dbh->disconnect();
}
}
my $dbh;
eval {$dbh=DBI->connect("dbi:Pg:dbname=$dbname;host=$host;port=$port", $dbuser, $dbpass, {AutoCommit => 0});}
if ($dbh)
{
&simpleconnect();
my $i=0;
my
while ($i<=7)
{
$result=0;
my $sth=$dbh->prepare("INSERT INTO table1 (col1,col2) values( ?, 'test')");
if ( $sth->execute($i) )
{
$result=1 if ( $sth->rows()==1 );
}
$sth->finish;
}
$dbh->commit() if ( $result );
$dbh->disconnect();
}
</code>
My question is why when i start the script through mod_perl in my table 1 is only 1 query the last one.
And when i start it without mod_perl every thing is OK. I have all my rows in table1.
</p>