| 1 |
#!/usr/local/bin/perl |
| 2 |
|
| 3 |
use strict; |
| 4 |
require Suika::CGI; |
| 5 |
|
| 6 |
my %ex_point1 = ( |
| 7 |
kokugo => 54, |
| 8 |
suugaku => 55, |
| 9 |
eigo => 57, |
| 10 |
sekaishi => 53, |
| 11 |
nihonshi => 0, |
| 12 |
chiri => 0, |
| 13 |
butsuri => 54, |
| 14 |
kagaku => 52, |
| 15 |
seibutsu => 0, |
| 16 |
_OBJECT => 57, |
| 17 |
); |
| 18 |
|
| 19 |
my %ex_point2 = ( |
| 20 |
kokugo => 53, |
| 21 |
suugaku => 55, |
| 22 |
eigo => 55, |
| 23 |
sekaishi => 52, |
| 24 |
nihonshi => 0, |
| 25 |
chiri => 0, |
| 26 |
butsuri => 54, |
| 27 |
kagaku => 51, |
| 28 |
seibutsu => 0, |
| 29 |
_OBJECT => 58, |
| 30 |
); |
| 31 |
|
| 32 |
my %ex_haiten1 = ( |
| 33 |
kokugo => 80, |
| 34 |
suugaku => 80, |
| 35 |
eigo => 80, |
| 36 |
sekaishi => 40, |
| 37 |
nihonshi => 0, |
| 38 |
chiri => 0, |
| 39 |
butsuri => 40, |
| 40 |
kagaku => 0, |
| 41 |
seibutsu => 0, |
| 42 |
); |
| 43 |
|
| 44 |
my %ex_haiten2 = ( |
| 45 |
kokugo => 0, |
| 46 |
suugaku => 300, |
| 47 |
eigo => 150, |
| 48 |
sekaishi => 0, |
| 49 |
nihonshi => 0, |
| 50 |
chiri => 0, |
| 51 |
butsuri => 150, |
| 52 |
kagaku => 150, |
| 53 |
seibutsu => 0, |
| 54 |
); |
| 55 |
|
| 56 |
|
| 57 |
sub kanzan (%%%%) { |
| 58 |
my ($point1, $full1, $point2, $full2) = @_; |
| 59 |
my (%kanzaned1, %kanzaned2); |
| 60 |
$$full1{_ALL} = 0; |
| 61 |
for my $subject (keys %$full1) { |
| 62 |
next if $subject =~ /^_/; |
| 63 |
$kanzaned1{$subject} = $$point1{$subject}*$$full1{$subject}/100; |
| 64 |
$kanzaned1{_ALL} += $kanzaned1{$subject}; |
| 65 |
$$full1{_ALL} += $$full1{$subject}; |
| 66 |
} |
| 67 |
$kanzaned1{_PERCENT} = 100*$kanzaned1{_ALL}/$$full1{_ALL}; |
| 68 |
$$full2{_ALL} = 0; |
| 69 |
for my $subject (keys %$full2) { |
| 70 |
next if $subject =~ /^_/; |
| 71 |
$kanzaned2{$subject} = $$point2{$subject}*$$full2{$subject}/100; |
| 72 |
$kanzaned2{_ALL} += $kanzaned2{$subject}; |
| 73 |
$$full2{_ALL} += $$full2{$subject}; |
| 74 |
} |
| 75 |
$kanzaned2{_PERCENT} = 100*$kanzaned2{_ALL}/$$full2{_ALL}; |
| 76 |
|
| 77 |
my ($percent, $object_percent); |
| 78 |
$percent = 100*($kanzaned1{_ALL}+$kanzaned2{_ALL}) |
| 79 |
/($$full1{_ALL}+$$full2{_ALL}); |
| 80 |
$object_percent = ($$point1{_OBJECT}*$$full1{_ALL} |
| 81 |
+$$point2{_OBJECT}*$$full2{_ALL}) |
| 82 |
/($$full1{_ALL}+$$full2{_ALL}); |
| 83 |
($percent, $object_percent, \%kanzaned1, \%kanzaned2); |
| 84 |
} |
| 85 |
|
| 86 |
my (%mypoint1, %mypoint2, %haiten1, %haiten2); |
| 87 |
if ($Suika::CGI::param{newform} ne 'no') { |
| 88 |
%mypoint1 = %ex_point1; |
| 89 |
%mypoint2 = %ex_point2; |
| 90 |
%haiten1 = %ex_haiten1; |
| 91 |
%haiten2 = %ex_haiten2; |
| 92 |
} else { |
| 93 |
for my $s (keys %Suika::CGI::param) { |
| 94 |
$mypoint1{$1} = $Suika::CGI::param{$s} if $s =~ /^(.+[^H_])1$/; |
| 95 |
$mypoint2{$1} = $Suika::CGI::param{$s} if $s =~ /^(.+[^H_])2$/; |
| 96 |
$mypoint1{'_'.$1} = $Suika::CGI::param{$s} if $s =~ /^(.+)_1$/; |
| 97 |
$mypoint2{'_'.$1} = $Suika::CGI::param{$s} if $s =~ /^(.+)_2$/; |
| 98 |
$haiten1{$1} = $Suika::CGI::param{$s} if $s =~ /^(.+)H1$/; |
| 99 |
$haiten2{$1} = $Suika::CGI::param{$s} if $s =~ /^(.+)H2$/; |
| 100 |
} |
| 101 |
} |
| 102 |
my ($percent, $object, $kanzan1, $kanzan2) |
| 103 |
= kanzan ({%mypoint1} => {%haiten1}, {%mypoint2} => {%haiten2}); |
| 104 |
|
| 105 |
print STDOUT "Content-Type: text/html; charset=euc-jisx0213 |
| 106 |
|
| 107 |
"; |
| 108 |
output_html (\%mypoint1 => \%haiten1 => $kanzan1, |
| 109 |
\%mypoint2 => \%haiten2 => $kanzan2, |
| 110 |
percent => $percent, object => $object); |
| 111 |
|
| 112 |
sub diffmark ($) { |
| 113 |
my $diff = shift; |
| 114 |
return '□' if $diff < -4; |
| 115 |
return '△' if $diff < -2; |
| 116 |
return '○' if $diff < 0; |
| 117 |
return '◎'; |
| 118 |
} |
| 119 |
|
| 120 |
sub output_html (%%%%%) { |
| 121 |
my ($p1 => $h1 => $k1, $p2 => $h2 => $k2, %misc) = @_; |
| 122 |
for my $n ($$k1{_PERCENT}, $$k2{_PERCENT}, $misc{percent}, $misc{object}) { |
| 123 |
$n = int ($n); |
| 124 |
} |
| 125 |
$$k1{_DIFF} = $$k1{_PERCENT}-$$p1{_OBJECT}; |
| 126 |
$$k2{_DIFF} = $$k2{_PERCENT}-$$p2{_OBJECT}; |
| 127 |
$misc{_DIFF} = $misc{percent}-$misc{object}; |
| 128 |
$$k1{_DIFFMARK} = diffmark ($$k1{_DIFF}); |
| 129 |
$$k2{_DIFFMARK} = diffmark ($$k2{_DIFF}); |
| 130 |
$misc{_DIFFMARK} = diffmark ($misc{_DIFF}); |
| 131 |
print <<EOH; |
| 132 |
<!DOCTYPE html PUBLIC "-//W3D//DTD HTML 4.01//EN"> |
| 133 |
<html lang="ja"> |
| 134 |
<head> |
| 135 |
<title>配点換算</title> |
| 136 |
<style type="text/css"> |
| 137 |
input {width: 3em} |
| 138 |
</style> |
| 139 |
</head> |
| 140 |
<body> |
| 141 |
<h1>配点換算</h1> |
| 142 |
<form action="kanzan" method="post" accept-charset="iso-2022-jp, iso-2022-jp-3"> |
| 143 |
<table> |
| 144 |
<thead> |
| 145 |
<tr> |
| 146 |
<th colspan="2">教科</th> |
| 147 |
<th>国語</th><th>数学</th><th>英語</th> |
| 148 |
<th>世界史</th><th>日本史</th><th>地理</th> |
| 149 |
<th>物理</th><th>化学</th><th>生物</th> |
| 150 |
</tr> |
| 151 |
</thead> |
| 152 |
<tbody> |
| 153 |
<tr> |
| 154 |
<th rowspan="3">一次</th><th>持ち点</th> |
| 155 |
<td><input type="text" name="kokugo1" value="$$p1{kokugo}"></td> |
| 156 |
<td><input type="text" name="suugaku1" value="$$p1{suugaku}"></td> |
| 157 |
<td><input type="text" name="eigo1" value="$$p1{eigo}"></td> |
| 158 |
<td><input type="text" name="sekaishi1" value="$$p1{sekaishi}"></td> |
| 159 |
<td><input type="text" name="nihonshi1" value="$$p1{nihonshi}"></td> |
| 160 |
<td><input type="text" name="chiri1" value="$$p1{chiri}"></td> |
| 161 |
<td><input type="text" name="butsuri1" value="$$p1{butsuri}"></td> |
| 162 |
<td><input type="text" name="kagaku1" value="$$p1{kagaku}"></td> |
| 163 |
<td><input type="text" name="seibutsu1" value="$$p1{seibutsu}"></td> |
| 164 |
</tr> |
| 165 |
<tr> |
| 166 |
<th>配点</th> |
| 167 |
<td><input type="text" name="kokugoH1" value="$$h1{kokugo}"></td> |
| 168 |
<td><input type="text" name="suugakuH1" value="$$h1{suugaku}"></td> |
| 169 |
<td><input type="text" name="eigoH1" value="$$h1{eigo}"></td> |
| 170 |
<td><input type="text" name="sekaishiH1" value="$$h1{sekaishi}"></td> |
| 171 |
<td><input type="text" name="nihonshiH1" value="$$h1{nihonshi}"></td> |
| 172 |
<td><input type="text" name="chiriH1" value="$$h1{chiri}"></td> |
| 173 |
<td><input type="text" name="butsuriH1" value="$$h1{butsuri}"></td> |
| 174 |
<td><input type="text" name="kagakuH1" value="$$h1{kagaku}"></td> |
| 175 |
<td><input type="text" name="seibutsuH1" value="$$h1{seibutsu}"></td> |
| 176 |
</tr> |
| 177 |
<tr> |
| 178 |
<th>換算点</th> |
| 179 |
<td>$$k1{kokugo}</td><td>$$k1{suugaku}</td><td>$$k1{eigo}</td> |
| 180 |
<td>$$k1{sekaishi}</td><td>$$k1{nihonshi}</td><td>$$k1{chiri}</td> |
| 181 |
<td>$$k1{butsuri}</td><td>$$k1{kagaku}</td><td>$$k1{seibutsu}</td> |
| 182 |
</tr> |
| 183 |
|
| 184 |
<tr> |
| 185 |
<th rowspan="3">二次</th><th>持ち点</th> |
| 186 |
<td><input type="text" name="kokugo2" value="$$p2{kokugo}"></td> |
| 187 |
<td><input type="text" name="suugaku2" value="$$p2{suugaku}"></td> |
| 188 |
<td><input type="text" name="eigo2" value="$$p2{eigo}"></td> |
| 189 |
<td><input type="text" name="sekaishi2" value="$$p2{sekaishi}"></td> |
| 190 |
<td><input type="text" name="nihonshi2" value="$$p2{nihonshi}"></td> |
| 191 |
<td><input type="text" name="chiri2" value="$$p2{chiri}"></td> |
| 192 |
<td><input type="text" name="butsuri2" value="$$p2{butsuri}"></td> |
| 193 |
<td><input type="text" name="kagaku2" value="$$p2{kagaku}"></td> |
| 194 |
<td><input type="text" name="seibutsu2" value="$$p2{seibutsu}"></td> |
| 195 |
</tr> |
| 196 |
<tr> |
| 197 |
<th>配点</th> |
| 198 |
<td><input type="text" name="kokugoH2" value="$$h2{kokugo}"></td> |
| 199 |
<td><input type="text" name="suugakuH2" value="$$h2{suugaku}"></td> |
| 200 |
<td><input type="text" name="eigoH2" value="$$h2{eigo}"></td> |
| 201 |
<td><input type="text" name="sekaishiH2" value="$$h2{sekaishi}"></td> |
| 202 |
<td><input type="text" name="nihonshiH2" value="$$h2{nihonshi}"></td> |
| 203 |
<td><input type="text" name="chiriH2" value="$$h2{chiri}"></td> |
| 204 |
<td><input type="text" name="butsuriH2" value="$$h2{butsuri}"></td> |
| 205 |
<td><input type="text" name="kagakuH2" value="$$h2{kagaku}"></td> |
| 206 |
<td><input type="text" name="seibutsuH2" value="$$h2{seibutsu}"></td> |
| 207 |
</tr> |
| 208 |
<tr> |
| 209 |
<th>換算点</th> |
| 210 |
<td>$$k2{kokugo}</td><td>$$k2{suugaku}</td><td>$$k2{eigo}</td> |
| 211 |
<td>$$k2{sekaishi}</td><td>$$k2{nihonshi}</td><td>$$k2{chiri}</td> |
| 212 |
<td>$$k2{butsuri}</td><td>$$k2{kagaku}</td><td>$$k2{seibutsu}</td> |
| 213 |
</tr> |
| 214 |
</tbody> |
| 215 |
</table> |
| 216 |
|
| 217 |
<table> |
| 218 |
<thead> |
| 219 |
<tr> |
| 220 |
<th></th><th>得点率</th><th>目標点</th><th colspan="2">差</th> |
| 221 |
</tr> |
| 222 |
</thead> |
| 223 |
<tbody> |
| 224 |
<tr> |
| 225 |
<th>一次</th> |
| 226 |
<td>$$k1{_PERCENT}</td> |
| 227 |
<td><input type="text" name="OBJECT_1" value="$$p1{_OBJECT}"></td> |
| 228 |
<td>$$k1{_DIFF}</td> |
| 229 |
<td>$$k1{_DIFFMARK}</td> |
| 230 |
</tr> |
| 231 |
<tr> |
| 232 |
<th>二次</th> |
| 233 |
<td>$$k2{_PERCENT}</td> |
| 234 |
<td><input type="text" name="OBJECT_2" value="$$p2{_OBJECT}"></td> |
| 235 |
<td>$$k2{_DIFF}</td> |
| 236 |
<td>$$k2{_DIFFMARK}</td> |
| 237 |
</tr> |
| 238 |
<tr> |
| 239 |
<th>合計</th> |
| 240 |
<td>$misc{percent}</td> |
| 241 |
<td>$misc{object}</td> |
| 242 |
<td>$misc{_DIFF}</td> |
| 243 |
<td>$misc{_DIFFMARK}</td> |
| 244 |
</tr> |
| 245 |
</tbody> |
| 246 |
</table> |
| 247 |
|
| 248 |
<p> |
| 249 |
<input type="hidden" name="newform" value="no"> |
| 250 |
<input type="submit" value="OK"> |
| 251 |
</p> |
| 252 |
</form> |
| 253 |
EOH |
| 254 |
} |
| 255 |
|
| 256 |
1; |
Parent Directory
| 
Revision Log