저는 레드햇5.2+오라클+perl을 사용
하고 있습니다..
근데 연동할려고 하니 문제가 생겼습니다
서버(터미널)에서 작업하여 결과를 출력하면 db값이 제대로 나오는데
웹에서 사용할려구 하면
db값이 제대로 나오지 않습니다.
무엇을 확인해야하죠
제가 알고 있는것은
웹에서는 dbh가 있는 문장에서
동작이 멈첬습니다.
답변좀 부탁합니다..
!/usr/bin/perl
use DBI;
# ORACLE에 접속한다.
my $userid = 'scott';
my $passwd = 'tiger';
my $dbh = DBI->connect('', $userid, $passwd, 'Oracle');
# 여기에 MySQL, pgSQL을 넣으면,
# 자연스럽게 MySQL이나 pgSQL용
# perl 프로그램이 된다!
print "Content-Type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>오라클테스트</title>\n";
print "</head>\n";
print "<body>\n";
print "테이블명 = $name 타입 = $type\n";
unless($dbh) { <- 웹상에서는 이부분에서 빠져나갑니다..
warn "Unable to connect to Oracle ($DBI::errstr)\n";
exit 0;
}
print "aa";
# Cursor를 선언한다.
$query =
"select TNAME, TABTYPE from TAB";
my $sth = $dbh->prepare($query);
unless($sth) {
$dbh->disconnect;
die "ERROR in prepare!\n";
}
# Cursor를 open한다.
#if ($sth->execute == 0) {
# $sth->finish;
$sth->execute;
# $dbh->disconnect;
# die "ERROR in execute!\n";
# }
# Cursor로부터 한줄씩 읽어온다.
print "ffffffffff";
while(($name,$type) = $sth->fetchrow)
{
print "$name $type\n";
}
# Cursor를 close한다.
$sth->finish;
$dbh->disconnect;
print "dddddddddd$name $type\n";
print "</body>\n";
print "</html>\n";
exit;
답변좀 부탁합니다..
|