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