lwp 模拟行锁堵塞 前端超时

jrhmpt01:/root/async# cat a2.pl use  LWP::UserAgent;use utf8;use DBI;use POSIX;use HTTP::Date qw(time2iso str2time time2iso time2isoz);my $ua = LWP::UserAgent->new;$ua->timeout(10);$ua->env_proxy;$ua->agent("Mozilla/8.0");$time1=time2iso(time());print "\$time1 is $time1\n";my $response = $ua->get('http://120.55.118.6:3000/api/update?id=1');if ($response->is_success) {print   $response->decoded_content;  # or whatever}else{print   $response->decoded_content; };$time2=time2iso(time());print "\$time2 is $time2\n";print "111111111111111111111111111111111111\n";jrhmpt01:/root/async# perl a2.pl $time1 is 2016-04-16 20:03:08500 read timeout$time2 is 2016-04-16 20:03:18111111111111111111111111111111111111查看接口的事务情况:get '/api/update' => sub {my $dbName = 'oadb';my $dbUser = 'query';my $dbUserPass = 'xxx';my  $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass,{                          RaiseError => 1,                          AutoCommit => 0                        }) or die "can't connect to database " ;   my $c = shift;my  $id=$c->param('id');eval{$dbh->do("update query.test set id=100 where id =$id") or $!;$dbh->commit(); $c->render(text =>  "update successed" );};if( $@ ) {   #warn "Database error: $DBI::errstr\n";         $dbh->rollback(); #just die if rollback is failing           $c->render(text =>  "update failed" );                         };};行锁堵塞,前端超时