#!/usr/bin/perl
#
$data1 = 7;
$data2 = 9;
$data3 = 3;
$data4 = 6;
$data5 = 4;
$MAX = $data2;
# --------------------------------------------
# ここからはホームページを表示する部分です
# ==================================
# Contents Write
# コンテンツを書き出す部分
# ==================================
print "Content-type: text/html\n";
print "\n";
print "\n";
print "\n";
print "グラフ表示ＣＧＩ\n";
print "\n";
print "\n";
print "グラフを\表\示するＣＧＩの例
\n";
print "行ごとに繰り返しの部分があるので、for〜next文で簡略できるよ
\n";
print "このＣＧＩではそのまま繰り返して書いてあります。
\n";
print "\n";
print "| データ１ | ７ | \n";
$width = $data1 / $MAX * 100;
if($width > 0) {
$tag = '
';} else {
$tag = '｡';
}
print "$tag | \n";
print "７７％ |
\n";
print "| データ２ | ９ | \n";
$width = $data2 / $MAX * 100;
if($width > 0) {
$tag = '';} else {
$tag = '｡';
}
print "$tag | \n";
print "１００％ |
\n";
print "| データ３ | ３ | \n";
$width = $data3 / $MAX * 100;
if($width > 0) {
$tag = '';} else {
$tag = '｡';
}
print "$tag | \n";
print "３３％ |
\n";
print " | データ４ | ６ | \n";
$width = $data4 / $MAX * 100;
if($width > 0) {
$tag = '';} else {
$tag = '｡';
}
print "$tag | \n";
print" ６６％ |
\n";
print" | データ５ | ４ | \n";
$width = $data5 / $MAX * 100;
if($width > 0) {
$tag = '';} else {
$tag = '｡';
}
print "$tag | \n";
print" ４４％ |
\n";
print "
\n";
print "このように\表\示することができます
\n";
print "\ソ\ースを見て工夫してみてください。
\n";
print "＜\ソ\ースの\表\示＞←ここをクリックしてください
\n";
print "閉じる\n";
print "\n";