#! /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;
}
운영자님 항상 고맙습니다. 안녕히 계세요.
114
4,579
2004-10-02 16:35:37
닉네임
