Re: Problem with perl script

[Geert Kerkhofs]

Ok, i understand this but i have not much experience with perl scripting, maybe someone can help me with this.

this is the script.
#--------------------------------------------------------------------------
#!/usr/bin/perl -w

use DBI;
my $host = "localhost";
my $db = "world";
my $db_user = "root";
my $db_password = "";


my $dbh = DBI->connect('dbi:mysql:world:localhost:3306',$db_user, $db_password)
|| die "Kan geen verbinding maken met de SQL server.";

$Counter=1;
$ID=1;
$Name="GhostTown";
$CountryCode="BEL";
$District="Antwerpen";
$Population=1;

while ($Teller<=10000)
{


$sqlstatement="INSERT INTO City (`ID`, `Name`,`CountryCode`,`District`,`Population`) VALUES ($ID,\" $Name \",\" $CountryCode \",\" $District \", $Population)";

$sth = $dbh->prepare($sqlstatement);

print "De rij met id: $ID \tis toegevoegd in tabel City\n ";

$sth->execute || die print "Fout in de SQL query $sqlstatement, probeer het opnieuw";

$Counter++;
$ID++;
$Population=$Teller*0.2;
}

$dbh->disconnect();
#--------------------------------------------------------------------------

so how can i check if $sth->execute || die print "error";
went ok and let the rest of the script execute on the surviving node ???