在Perl脚本中更新SQL-执行语句卡住

Question

Getting something is wrong with the execute statement. It just seems to hang forever when I run in command prompt. It doesn't die either. does execute maybe need parameters?

#!/usr/bin/perl
use DBI;
use Data::Dumper;

$dbh = DBI->connect('DB', 'NAME', 'PASS',{ LongReadLen => 1000000} ) or die 'Error: cant connect to db';

$st= "update table set the_id = 7 where mid = 23 and tid = 22";

my $UpdateRecord = $dbh->prepare($st)  or die "Couldn't prepare statement: $st".$dbh->errstr;
$UpdateRecord->execute() or die "can not execute $UpdateRecord".$dbh->errstr;
$UpdateRecord->finish;


$dbh->disconnect();

EDIT:
I tried binding in execute as well as using bind_param(), and it's still hanging up.

Answer 1

you need a do instead of prepare .

my $UpdatedRecord = $dbh->do($st)  or die "Statement fails: $st".$dbh->errstr;

From DBI :

This method is typically most useful for non-SELECT statements that either cannot be prepared in advance (due to a limitation of the driver) or do not need to be executed repeatedly. It should not be used for SELECT statements because it does not return a statement handle (so you can't fetch any data).

Also it's always better to add/use db driver module,the one you are using, at top after use DBI; statement.

use DBD::Oracle ;

Also add

use strict;
use warnings;

Answer 2

问题是我锁了一堆对象，以免在我运行一次断开连接之前无法将其插入。是的，不要那样做。