ÇØÇÇCGI ÀÔ´Ï´Ù.
´äº¯ÀÌ ´Ê¾úÁÒ?
¾Æ·¡ Áú¹®¿¡ ´äº¯À» Âü°íÇϽʽÿÀ.
[Áú¹®]
1) µµ¸ÅÀÎÀ» ´Ã¸®·Á¸é $xxx="µµ¸ÅÀÎ" ÀÌ·¸°Ô °è¼Ó Ãß°¡ÇÏ°í elsifºÎºÐÀ» °è¼Ó Ãß°¡¸é µÇ´Â °ÍÀÎÁö¿ä?
³× elsif¸¸ °è¼Ó Ãß°¡ Çϼ¼¿ä.
2) À§¿¡¼ º¸¸é cµµ¸ÅÀÎÀ» Á¤ÇØÁÖÁö ¾ÊÇߴµ¥¡¦¡¦ µµ¸ÅÀÎÁöÁ¤ÀÌ ¾ø°Å³ª µµ¸ÅÀÎÁöÁ¤ÀÌ µÇ¾îÀ־ if, elsif¿¡ ¾øÀ¸¸é elseÀÌ ºÎºÐÀ» ¸ðµÎ µû¸£´Â °ÍÀÎÁö¿ä?
³×. ±×·¸´ä´Ï´Ù. ¾î´À°Í¿¡µµ ÇØ´çÇÏÁö ¾ÊÀ» °æ¿ì else ¹®À¸·Î °©´Ï´Ù.
3) À§ cgi¸¦ ¾Æ·¡Ã³·³ ÀÀ¿ëÇÏ·Á°í Çϴµ¥ À߸øµÈ ºÎºÐÀÌ ÀÖ´ÂÁö ºÁÁÖ¼¼¿ä.
Á¦°¡ ¸¸µç°ÍÀÌ ¾Æ´Ï°í ¶æÀ» ¸ð¸£°í ¼Ò µÞ°Å¸§ Ä¡´Ù Áã ÀâµíÀÌ ²ç ¸ÂÃç¼ µÇ±ä µÇ´Âµ¥¡¦¡¦ <<END_LINE ¿Í END_LINE
Àº ¹«½¼ ¶æÀ» °¡Áö´Â °ÍÀÌÁö ÁÖ¼® Á» ´Þ¾Æ ÁÖ¼¼¿ä.
if ($ENV{'SERVER_NAME'}=~/$a/) {
print "Content-type:text/html\n\n"; <== html Çü½ÄÀ¸·Î Ãâ·ÂÇÏ°Ú´Ù°í ¼±¾ðÇÕ´Ï´Ù.
&Asite_PRINT; <== sub Asite_PRINT ÀÇ ¼ºê·çƾÀ» È£ÃâÇÏ°Ú´Ù´Â °Ì´Ï´Ù.
exit; <== ÇÁ·Î±×·¥À» Á¤ÁöÇÑ´Ù´Â ¸»ÀÌÁÒ.
sub Asite_PRINT{ <== ¼ºê·çƾÀ» ¼±¾ðÇÏ´Â ºÎºÐÀÔ´Ï´Ù.
print <<END_LINE; <== END_LINE ¶ó´Â ºÎºÐ³»¿¡ htmlÀ» ±×³É Ãâ·ÂÇØÁÖ°Ú´Ù´Â ¸»ÀÔ´Ï´Ù.
htmlű׻ðÀԺκÐ
END_LINE <== ¿©±â ±îÁö END_LINE ÀÌ´Ï ¿ä »çÀÌ¿¡ ÀÖ´Â°Ç ÀüºÎ ±×³É Ãâ·ÂÇØÁÝ´Ï´Ù.
exit; <== ÇÁ·Î±×·¥À» ³¡³»°Ú´Ù´Â °ÍÀÌÁÒ.
}
ÁÁÀº ÇÏ·çµÇ¼¼¿ä.