|
Total related article : 2 |
|
µî·ÏÀÏ: | 2000-11-16 |
½Ã°£: | 14:34:01 |
Á¶È¸¼ö: | 2731 |
from: | 211.33.60.7 |
|
perl°ú mysql ¿¬µ¿ÇÏ´Â ¹æ¹ýÁ» °¥ÄÑÁÖ¼¼¿ä. |
±Û¾´ÀÌ : Anonymous |
|
¾È³ç Çϼ¼¿ä.
Á¦ ÄÄ¿¡ À©µµ¿ì¿ë mysqlÀ» ¼³Ä¡ÇÏ°í ¾ÆÆÄÄ¡¿Í ¾×Ƽºê ÆÞÀ»
ÀÌ¿ëÇÏ¿© db¿¬µ¿À» Å×½ºÆ® ÇÏ´Â ¹æ¹ýÁ» °¥ÄÑ ÁÖ¼¼¿ä.
|
|
   |
|
µî·ÏÀÏ: | 2000-11-19 |
½Ã°£: | 21:48:39 |
Á¶È¸¼ö: | 2991 |
from: | 211.33.60.187 |
|
perl¿Í sql ¿¬µ¿ |
±Û¾´ÀÌ : HappyCGI |
|
> ¾È³ç Çϼ¼¿ä.
> Á¦ ÄÄ¿¡ À©µµ¿ì¿ë 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 ¿¬µ¿¿¡ °üÇؼ ¼³¸íÀ» ¸¶Ä¡±¸¿ä.
´ÙÀ½ °Á¿¡¼ º»°ÝÀûÀÎ ¹æ¸í·Ï ¸Í±Û±â¸¦ Çغ¸µµ·Ï ÇսôÙ. ^^
µµ¿òÀÌ µÇ¼Ì±â¸¦ ¹Ù¶ø´Ï´Ù.
|
|
   |