有關 dbi connect faild問題請問

ieting

請問各位大大 當我下
$dbh = DBI->connect("DBI:Oracle:$alert_oracle{'oracle_sid'}","$alert_oracle{'oracle_login_name'}","$alert_oracle{'oracle_login_pwd'}");
die "Unable to connect: $DBI::errstr\n" unless (defined $dbh);
#$dbh = DBI->connect("DBI:Oracle:$alert_oracle{'oracle_sid'}","$alert_oracle{'oracle_login_name'}","$alert_oracle{'oracle_login_pwd'}",{RaiseError => 1});
$sql = qq{
  SELECT COUNT(*) FROM V\$SESSION
};
$sth = $dbh->prepare( $sql );
$sth->execute();
my($GetUSERS_Num);
$sth->bind_columns(\$GetUSERS_Num);
while( $sth->fetch() ) {$GetUSERS_Num_A = $GetUSERS_Num;}
$sth->finish();
$dbh->disconnect();
這樣子的指令後

如果 網路斷掉 會跑出以下的訊息 然後程式就當了
如何的方式可以不讓他當掉 且會一直重新試連線
DBI connect('reas3','system',...) failed: ORA-01034: ORACLE not available
ORA-27101: shared memory realm does not exist
Linux Error: 2: No such file or directory (DBD ERROR: OCISessionBegin) at ./Data
base_System/DBstatus/DBstatus_Linux.pl line 9
Unable to connect: ORA-01034: ORACLE not available
ORA-27101: shared memory realm does not exist
Linux Error: 2: No such file or directory (DBD ERROR: OCISessionBegin)

多謝大大的指教

[[i] 本帖最后由 ieting 于 2006-3-17 13:46 编辑 [/i]]

apile

自己写个类似coonection pool的subroutine...
每次要产生statement前，都用eval包起来...
然後产生完statement後，检查 $@有没有错误...
如果有..重新产生$dbh...然後以此类推....

qqhelloWorld

看错误好像是oracle instance没有启动