안녕하세요

홈타운 운영자입니다.

cgi 장비에서 perl을 이용한 mysql 접속을 그동안 서비스를 해오지 않았습니다.

내부 방침상 cgi.chol.com 은 더이상의 지원을 하지 않기로 했기 때문이죠.

하지만 perl 을 이용한 mysql 지원을 지금부터 가능하게 하려 합니다.

아래 예제 코드를 이용 하시면 되구요. 

더 자세한 사항은 http://dbi.perl.org/

을 참조 하시길 바랍니다.

perl -mysql 연동 예제 코드

#!/usr/local/bin/perl
use DBI;

print "Content-Type: text/html\n\n";

$database="사용자님의 홈타운 아이디"; #mysql DB는 홈타운 id가 DB 명 입니다.

$passwd="사용자님의 mysql 패스워드";

$id="사용자님의 홈타운 아이디";

$dbh = DBI->connect("dbi:mysql:database=$database;host=mysqlsvr1", "$id", "$passwd" ) || die( "Can't connect : $DBI::errstr");
$query = "SELECT * FROM 사용자님의 테이블명";
$sql = $dbh->prepare( $query );
$ret = $sql->execute;
while( ($subject,$idx)= $sql->fetchrow_array ) {
 print "값: $idx. $subject test <br>";
}
$dbh->disconnect;

그럼 오늘도 좋은 하루 되시길 바랍니다.~~★