안녕하세요 요즘 매일 몇시간씩 이곳에 들러서 자료받고 실행해보고 공부하고 있습니다.많은 도움이 되고 있습니다. 감사합니다.
너무너무 성질나게 하는 내용을 질문드리고 싶습니다.
얼마전 이곳에서 시험지 소스를 다운받아서 실행해보았습니다.
저는 사실 초등학교교사인데 너무너무 마음에 들었습니다. 내용을 한글로 바꿔도 되더군요 그런데 하다보니 욕심이 생겨서 아이들이 문제를 하나씩 맞추면 카운터가 올라가서 몇문제중 몇문제를 맞췄다고 출력을 하고 싶더라구요
그런데 잘 안됩니다. (사실 될리가 없죠 왕초보니까)
한번 소스를 보시고 알려주세요 욕심을 내자면 그 기록이 다른 데이터에 보존이 된다면 더할 나위가 없겠습니다. 귀찮은시겠지만 꼭 부탁드립니다.
#!/usr/bin/perl
##################################################
# #
#프로그램 : 신호철 #
#Homepage : any.to/cybershin #
#작성일자 : 2000/1/8 #
# #
##################################################
# - Initialize Value --------------------
$password = "1111"; #암호지정#
open(FILE,"./total.txt");
$NO =
;
close(FILE);
# - GET or POST -------------------------
$c = 0;
$Method = $ENV{
REQUEST_METHOD
};
if ($Method eq "GET") {
$buffer = $ENV{
QUERY_STRING
};
@NameValuePairs = split(/&/,$buffer);
foreach $NameValue(@NameValuePairs)
{
($Name, $Value) = split(/=/,$NameValue);
$Op[$c] = $Name;
$Val[$c] = $Value;
$c ;
}
}
if ($Method eq "POST") {
@list=();
read(STDIN, $QueryString, $ENV{
CONTENT_LENGTH
});
@NameValuePairs = split (/&/, $QueryString);
foreach $NameValue (@NameValuePairs)
{
($Name, $Value) = split (/=/,$NameValue);
$Value =~tr/ / /;
$Value =~ s/%([dA-Fa-f][dA-Fa-f])/pack("C",hex($1))/eg;
$list[$c] = $Value;
$c =1;
}
$temp = pack("a20a180",$list[0],$list[1]);
$NO ;
open(FILE,">total.txt");
print FILE $NO;
close(FILE);
open(FILE,">word$NO.dat");
print FILE $temp;
close(FILE);
}
if ($Op[0] eq "act" && $Val[0] eq "add") {
&HTMLheader;
print << "ENDofPRINT";
ENDofPRINT
&HTMLfooter;
exit();
}
if ($Op[0] eq "pwd") {
&HTMLheader;
if ($password eq $Val[0]) {
open(FILE,"./total.txt");
$NO = ;
close(FILE);
$NO ;
print << "ENDofPRINT";
$NO 번째 문제 출제.
bordercolordark="white" bordercolorlight="white">
|
ENDofPRINT
}
else {
print<<"ENDofPRINT";
!!!incorrect password!!!
ENDofPRINT
}
&HTMLfooter;
exit();
}
if ($Op[0] eq "act" && $Val[0] eq "go") {
$Qno = $Val[1];
@c = ();
@bogi = ();
$QueNumber = int(rand($NO)) 1;
$Ans = int(rand(4)) 1;
$File = "word$QueNumber.dat";
open(FILE,$File);
read(FILE,$temp,200);
close(FILE);
($dap, $munjae) = unpack("a20a180",$temp);
$a=1;
while($a<5) {
$b = $a - $Ans $QueNumber;
if ($b<1) {$b =$NO;}
if ($b>$NO) {$b-=$NO;}
$c[$a] = $b;
open(FILE,"./word$b.dat");
read(FILE,$bogi[$a],20);
close(FILE);
$a ;
}
&HTMLheader;
print << "ENDofPRINT";
$Qno.
다음문제의 정답을 보기에서 고르세요.
$munjae
bordercolorlight="white">
|
ENDofPRINT
&HTMLfooter;
exit();
}
if ($Op[0] eq "dap") {
$Qno = $Val[1];
$Ans = $Val[2];
$dap = $Val[3];
$comment = "당신은 혹시 돌머리? 틀렸습니다";
if ($Val[0] eq $Ans) { $comment = "똑똑하군요 맞았습니다" }
&HTMLheader;
$no = $Qno 1;
print << "ENDofPRINT";
$comment. $Qno번 정답은 $Ans번입니다.
ENDofPRINT
&HTMLfooter;
exit();
}
# ------------------------------------------------------------------ Main Start
&HTMLheader;
print << "ENDofPRINT";
ENDofPRINT
&HTMLfooter;
# ------------------------------------------------------------------ End of Main
sub HTMLheader
{
print "Content-type: text/html
";
print <<"END";
시흥은행초등학교 퀴즈박사
END
}
sub HTMLfooter
{
print "시흥은행초등학교 문제은행
";
}
26
693
2000-01-23 02:41:07
닉네임
