http://nlp.kimura-s.otaru-uc.ac.jp/InformationProcessing/HowOldAreYou.cgi
#!/usr/bin/perl
use CGI;
my $charset="utf-8";
my $title="¾®Ã®¾¦²ÊÂç³Ø";
my $myself = './HowOldAreYou.cgi';#<------------------½¤Àµ
my $q = new CGI;
print $q->header(-charset=>$charset);
print $q->start_html(-title=>$title, -encoding=>$charset);
#print $q->h1('¤¢¤Ê¤¿¤Î¥¤¥á¡¼¥¸¤·¤¿¿ô»ú¤òÅö¤Æ¤Þ¤¹¡£');
print $q->h2('¤¢¤ëµï¼ò²°¤Ç¡¦¡¦¡¦');
print $q->h3("<a href=\"$myself\">ºÇ½é¤«¤é»Ï¤á¤ë¡£</a><br>");
#ÆþÎÏñ¸ì
#¼ÁÌä¿ô
$Bit = "";
for($i=1;$i<=6;$i++){
$Qnum = "Q" . $i;
if($q->param($Qnum)){
$value = $q->param($Qnum);
print "Q$i $value<br>\n";
$Bit .= $value;
$Hidden .= qq|<input type="hidden" name="Q$i" value="$value">\n|;
}
else{
$num = $i;
last;
}
}
#
if($q->param("Q6")){
$Bit =~ s/¤¢¤ë/1/g;
$Bit =~ s/¤Ê¤¤/0/g;
$Bit = reverse $Bit;
my $dec = oct "0b" . $Bit;
print "<br>¤¢¤Ê¤¿¤Î¥¤¥á¡¼¥¸¤·¤¿¿ô»ú¤Ï<font color=red>" . $dec, "</font>¤Ç¤¹¡£<br>"; # 1000
}
else{
#¿ô»ú
$Qnum = "Q" . $num;
print $q->start_form(-method => 'POST', -action => $myself);
print $Hidden;
print qq|¥¤¥á¡¼¥¸¤·¤¿¿ô»ú¤Ï¤¢¤ê¤Þ¤¹¤«¡©<br>\n|;
print qq|<img src="page$num.png"><br>\n|;
print qq|<input type="radio" name="$Qnum" value="¤¢¤ë">¤¢¤ë|;
print qq|<input type="radio" name="$Qnum" value="¤Ê¤¤">¤Ê¤¤<br>|;
print qq|<input type="submit" value="Á÷¿®">|;
#print qq|<input type="reset" value="¥ê¥»¥Ã¥È">|;
print $q->end_form();
}
print $q->end_html();