> > 이런 펄과 오라클을 연동해서 사용을 하고 있는데
> > 테이블생성이 되지 않더군요
>
> perl에서 입니까? sqlplus에서 입니까?
>
> > 제가 서버루틴으로 oracle을 사용 하도록 하고 있습니다.
> > 근데 작은량의 질의어에서는 정상이지만
> > 많은 양의 질의어를 사용하면 정상적인 데이타가 나오지 않습니다.
>
> rollback segment가 작아서 그런 것같습니다.
> 중간중간에 commit; 을 넣어주던지,
> 아니면 rollback segment을 늘려주시기 바랍니다.
>
> tolkien입니다.
아하 그렇구나 perl에서 생성을 할려구 했습니다..
참 글쿠 지금 perl 과 연동에 관한 참고 자료는 없나요?
지금 qurry문도 다 사용이 안되는 것같습니다..
소스에 문제가 있는지 확인을 좀 하고 싶습니다..
sub SearchDB
{
my $sql_state = @_[0];
unless($sql_state)
{
return;
}
my $userid = 'calendar';
my $passwd = 'calendar';
if ($dbh)
{
$dbh->disconnect;
}
my @result;
my $rc;
my $i=0;
my $dbh = DBI->connect( 'DBI:Oracle:KPT97', $userid, $passwd,{ AutoCommit =>1}); #db 접속
unless($dbh)
{
print " dbh-> connect error";
exit;
}
my $rc = $dbh->ping; #제대로 접속이 되었는지 알아봄
if($rc!=1)
{
exit;
}
my $sth = $dbh -> prepare($sql_state); #cursor 선언 (anstlrsjgdma
unless($sth)
{
$dbh->disconnect;
print "ERROR in prepare!\n";
exit;
}
@result = $dbh->selectrow_array(); #실행
$dbh->disconnect;
return @result;
}
이문을 바같에서 실행 시킴니다..
소스좀 보아 주세요
한열 밖에 읽어 들이지 못합니다..
부탁 꾸우벅
|