#!/usr/bin/perl chdir("C:\\Inetpub\\wwwroot\\xmlswf-chart2"); use lib qw(./); use Jcode; $print=""; # print "Content-type: text/html\n\n"; #generate random data $print .= " \n"; $print .= " \n"; $print .= " 高校生\n"; $print .= " 大学生\n"; $print .= " 社会人\n"; $print .= " \n"; $print .= " \n"; $print .= " \n"; $print .= " ".int(rand (90))."\n"; $print .= " ".int(rand (90))."\n"; $print .= " ".int(rand (90))."\n"; $print .= " \n"; $print .= " \n"; $print .= " ".int(rand (90))."\n"; $print .= " ".int(rand (90))."\n"; $print .= " ".int(rand (90))."\n"; $print .= " \n"; $print .= " \n"; $print .= " \n"; $out = Jcode::convert($print,'utf8'); #データのUTF-8変換(必須) print $out; #END