|
지난번에는 기가막히게 해서 죄송해요. 너모나 몰라서요.
어떻게 프로그램을 짰는데 프로그램 마지막에 잘도는지
볼려구 삽입한 문구를 빼면 500 Internal Server Error가 납니다.
아래에 프로그램을 봐주셔요. 부탁합니다.
마지막의 print문을 빼면 500 에러가 나요. 봐주셔요.
#!/usr/local/bin/perl
$regireal = "/home2/mis/syrhee/public_html/enro.html";
$date_comm = "/usr/bin/date";
$date = `$date_comm`; chop($date);
read (STDIN, $buf, $ENV{
CONTENT_LENGTH
});
@pairs = split(/&/, $buf);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/ / /;
$value =~ s/%(..)/pack("C",hex($1))/eg;
$value =~ s///g;
$FORM{$name} = $value;
}
open(FILE,"$regireal") &pip;&pip; die "Cannot open $regireal $!
";
@LINES=;
close(FILE);
$SIZE=@LINES;
open(ENRO,">$regireal") &pip;&pip; die "Cannot open $regireal $!
";
for ($i=0 ; $i<=$SIZE ; $i ) {
$_=$LINES[$i];
if (//) {
print ENRO "
";
print ENRO "[$date]";
if ($FORM{
dept
}) {
print ENRO ",$FORM{
dept
}";
}
if ($FORM{
realname
}) {
print ENRO ",$FORM{
realname
}";
}
if ($FORM{
phone
}) {
print ENRO ",$FORM{
phone
}";
}
if ($FORM{
cour1
}) {
$temp = $FORM{
cour1
};
if ($temp eq
on
){
print ENRO ",Internet";
}
}
if ($FORM{
cour2
}) {
$temp = $FORM{
cour2
};
if ($temp eq
on
){
print ENRO ",PP";
}
}
if ($FORM{
cour3
}) {
$temp = $FORM{
cour3
};
if ($temp eq
on
){
print ENRO ",Excel";
}
}
print ENRO "
";
}
else {
print ENRO $_;
}
}
close(ENRO);
#print "content-type:text/html
";
#print "
";
끝. vi에서 짜고 복사해서 indentation이 엉망이에요.
죄송해요.
|
41
628
2000-02-16 17:22:28
닉네임
