-_-;;;
직접 만드신것 같네요.
수많은 오류들이... 고친것만 해도 5개는 족히 될듯 ...
새로 수정된 코드입니다.
곳곳에 오류가 있어요. 예를 들면 print "...해서 "; 해야 되는데
쌍따옴표 대신에 ' 있거나...말이죠.
아래 복사해서 쓰면 됩니다.
앞으로는 이런거 물어보심 안됩니다. ^^
#!/usr/bin/perl
###########################################################################
# 방명록(1)
# 입력 데이터를 확인한다.
&read_parse;
# 데이터가 입력되지 않으면 에러화면을 보인다.
if((!$FORM{'username'}) || (!$FORM{'comment'})) {
print "Content-Type: text/html\n\n";
print qq~
입력에러 입력에러!!
이름과 내용을 기록해야만 등록이 됩니다.
입력페이지로
~;
exit;
}
else {
# guest.htm을 열어서 끝부분에 입력 데이터를 기록한다.
print "Content-Type: text/html\n\n";
open (A,"a.html") or die print "ref 파일을 찾을수 없습니다";
print A "성명: $FORM{'username'}
\n";
print A "E-MAIL: $FORM{'email'}
\n";
print A "내용:
\n";
print A "
: $FORM{'comment'}\n";
print A "
\n";
close(A);
# 입력 완료 화면을 보여준다.
print "
감사합니다.\n";
print "\n";
print "
글 등록 성공!!
\n";
print "성명: $FORM{'username'}
\n";
print "E-MAIL: $FORM{'email'}
\n";
print "내용
$FORM{'comment'}\n";
print "
방명록 보기\n";
print "\n";
exit;
}
###################################################
# 서브루틴 프로그램
# 입력테이터 처리
sub read_parse {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9]) /park("C", hex($1)) /eg;
$FORM{$name} = $value;
}
}
아래 부분은 님께 맞게 수정해서 쓰시구요.
open (A,"a.html") or die print "ref 파일을 찾을수 없습니다";
좋은 하루되세요.
63
746
2001-11-26 23:50:07
닉네임
