http://nlp.kimura-s.otaru-uc.ac.jp/InformationProcessing/From10To2.cgi
#!/usr/bin/perl
use CGI;
my $charset="utf-8";
my $title="¾®Ã®¾¦²ÊÂç³Ø";
my $myself = './From10To2.cgi';#<------------------½¤Àµ
my $q = new CGI;
print $q->header(-charset=>$charset);
print $q->start_html(-title=>$title, -encoding=>$charset);
print $q->h1('10¿Ê¿ô¤«¤é£²¿Ê¿ô¤Ø¤ÎÊÑ´¹');
print $q->h3('Ⱦ³Ñ¿ô»ú¤Ç10¿Ê¿ô¤òÆþÎϤ·¤Æ²¼¤µ¤¤¡£');
#»þ´Ö
my @time = localtime(time);
$time[4]++;
$time[5] += 1900;
#print "<br>$time[5]·î$time[4]·î$time[3]Æü$time[2]»þ$time[1]ʬ$time[0]ÉÃ<br>";
#print "$ENV{'REMOTE_ADDR'}<br>";
#ÆþÎÏñ¸ì
if($q->param('user')){
if($q->param('user') =~ /^\d+$/){
print "ÆþÎÏ(10¿Ê¿ô):" . $q->param('user') . "<br>";
# 10¿Ê¿ô¤«¤é2¿Ê¿ô
my $bin = sprintf "%b", $q->param('user');
print "·ë²Ì(£²¿Ê¿ô)" . $bin, "<br>\n"; # 1111101000
# 2¿Ê¿ô¤«¤é10¿Ê¿ô
#my $dec = oct "0b" . $q->param('user');
#print "·ë²Ì(10¿Ê¿ô):" . $dec, "<br>"; # 1000
}
else{
print "¡Ö" . $q->param('user') . "¡×¤Ï10¿Ê¿ô¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó" . "<br>";
}
}
print $q->start_form(-method => 'POST', -action => $myself);
print qq|<input type="text" size="30" name="user" value="13">|;
print qq|<input type="submit" name="submit" value="Á÷¿®">|;
print $q->end_form();
print $q->end_html();
}