#! /usr/bin/perl
#
# $Id: char.pl,v 1.4 2009/12/05 05:40:16 Hideki Kanayama Exp $
# Copyright(c) 2002-2006, Hideki Kanayama All Rights Reserved
print "Content-Type:text/html\n\n";
$zero = 0;
$end = 65535;
$offset = 4000;
if ($ENV{"REQUEST_METHOD"} eq "POST"){
read(STDIN,$data,$ENV{"CONTENT_LENGTH"});
} else {
$data = $ENV{"QUERY_STRING"};
}
@tmparry=split(/&/,$data);
foreach $string (@tmparry){
($key,$value)=split(/=/,$string);
$value =~ tr/+/ /;
$all{"$key"}=$value;
}
if ($all{from} eq 'all'){
$from = $zero;
$to = $end;
} else {
$from = $all{from};
$to = $from + $offset;
}
print "\n";
print "\n";
print qq{\n};
print qq{\n};
print "\n";
print "\n";
&showlist;
print "\n";
for($i=$from;$i<$to;$i=$i+16){
print "\n";
for($j=0;$j<=7;$j=$j+1){
&display;
}
print "
\n";
print "\n";
for($j=8;$j<=15;$j=$j+1){
&display;
}
print "
\n";
}
print "
";
&showlist;
print "\n";
exit;
sub showlist {
print "解説ページへ
\n";
for($i=$zero;$i<=$end;$i=$i+$offset){
print "$i \n";
}
print "All(3.5MB) \n";
}
sub display {
$x=$i+$j;
print "";
printf("&#%d; | \n",$x);
print "&#$x;";
print " | \n";
}