Row deletion issue in Oracle

Aryan

Greetings All!

I am not able to delete any rows in a table in Oracle using the perl script I have written. It just hangs and does nothing.

 # set [and export] vars
BEGIN{
$ENV{'SystemRoot'}='C:\WINDOWS';
$ENV{'Path'}='F:\oracle\ora92\bin;';
};
## Include all the required perl modules
use DBI; # Used to excecute the database access commands.

my $username="scott";
my $password="tiger"; 
$connectString= "dbiracle:devliv_10.118.70.112";
my $connectString = DBI->connect($connectString,$username,$password);
print "Yadhu";
my $subcontrol_deletion_query = "delete from custom_form where id='1'";
print "Yadhu";
print "Yadhu";

$connectString->do("delete from custom_form where id='1'");
$connectString->disconnect; 

The strangest thig is that even the print statements do not get excecuted. Can anybody please help?

Adam Stoller

Greetings All! I am not able to delete any rows in a table in Oracle using the perl script I have written. It just hangs and does nothing. # set [and export] vars BEGIN{ $ENV{'SystemRoot'}='C:\WINDOWS'; $ENV{'Path'}='F:\oracle\ora92\bin;'; }; ## Include all the required perl modules use DBI; # Used to excecute the database access commands. my $username="scott"; my $password="tiger"; $connectString= "dbiracle:devliv_10.118.70.112"; my $connectString = DBI->connect($connectString,$username,$password); print "Yadhu"; my $subcontrol_deletion_query = "delete from custom_form where id='1'"; print "Yadhu"; print "Yadhu"; $connectString->do("delete from custom_form where id='1'"); $connectString->disconnect; The strangest thig is that even the print statements do not get excecuted. Can anybody please help?

You are changing the PATH to only contain the specified path, whereas you should probably be appending or prepending the specified path to that environment's existing value.
You are not checking the return status from any of your DBI calls - I suggest you read the perldocs a bit more and learn how to code a bit more robustly.