|
|
|
 현재위치: 메인  해피포럼 웹디비 : 게시물 읽기 |
|
|
| 2000-11-19 (21:48:39) from 211.33.60.187 |
|
|
 작성인 : HappyCGI   |
조회수 : 2992 |
|
| 제목 : perl와 sql 연동 |
> 안녕 하세요.
> 제 컴에 윈도우용 mysql을 설치하고 아파치와 액티브 펄을
> 이용하여 db연동을 테스트 하는 방법좀 갈켜 주세요.
>
안녕하세요. 해피 CGI 웹마스터 윤영웅입니다.
답변이 많이 늦었죠? ^^
포럼을 새로 개편하면서 버그가 많아서 계속 수정하고 있었습니다.
대충 마무리가 된듯 하네요.
우선 perl 와 mysql의 연동의 개념적인 것 부터 설명을 하겠습니다.
http://www.happycgi.com/index.cgi?action=main&category=데이타베이스_창고/MySQL/MYSQL_자료/APIs/PERL_DBI
위 URL로 가보면 4개의 파일이 올라와 있습니다.
이는 DBI란 것으로 perl이 준 sql 명령어을 sql로 보내주는 역활을 합니다.
당연히 DBI 가 깔려있지 않으면 perl과 sql은 서로 연동이 될수 없겠죠?
(모든 언어는 거의 같은 형태를 취합니다. 방법상으로 약간씩 다르죠)
제가 액티펄에서 sql을 연동해보지 않았기 때문에
리눅스를 기반으로 설명을 드립니다.
서버에 DBI가 깔려있다고 가정을 합니다.
DBI 설치법은 조만간 올리겠습니다.
우선 mysql 에 아이디를 test 패스를 test로 가정을 하고
sql DB 이름을 testdb
그리고 테이블 명은 first
컬럼은 name varchar(20), email varchar(20) 으로 가정합니다.
값들은
윤영웅|webmaster@happycgi.com
손님 |guest@test.com
이란 두개의 값이 있다고 가정을 하구요.
참고로 sql 문법을 모르면 연동을 불가능하겠죠. ^^
아래는 샘플 cgi입니다. 보면서 설명을 하죠.
#!/usr/bin/perl
#########################################################
use DBI; #DBI란 모듈을 사용한다고 선언합니다.
$database = "testdb";
$hostname = "localhost";
$dsn = "DBI:mysql:database=$database;host=$hostname";
$user = "test";
$pw = "test";
$dbh = DBI->connect("$dsn", "$user", "$pw");
#########################################################
print "content-type:text/html
";
#DB 커넥팅을 시도합니다.
#이름이 공백이 아닌것들을 불러냅니다.
$sth = $dbh->prepare("select * from first where name is not null or die print "DBI::errsrt";
$sth->execute();
#@rows = $sth->fetchrow_array 란 $sth 에서 받은 값들을
#배열로 받아 보겠다는 말입니다.
#현재 컬럼이 두개니까 배열 0번과 1번을 각각
#$name 이란 변수와 $email 이란 변수로 지정을 하고
#출력을 합니다.
while (@rows = $sth->fetchrow_array) {
$name = $rows[0];
$email = $rows[1];
print "이름 : $name 이메일 : $email
";
}
이것으로 간단한 perl과 mysql 연동에 관해서 설명을 마치구요.
다음 강좌에서 본격적인 방명록 맹글기를 해보도록 합시다. ^^
도움이 되셨기를 바랍니다.
HappyCGI's SIGN
 | 개발자의 미덕은
게으름(Laziness)
참지말기(Impatience)
교만(Hubris) |
|
|
|
 |
|
|
메모
perl와 sql 연동 
