#!/usr/bin/perl

#chdir("C:\\Inetpub\\wwwroot\\xmlswf-chart"); #カレントディレクトリー。Windowsの場合*1
use lib qw(./); #Jcode.pmがインストールできない場合の私用ライブラリー*2
use Jcode;
$printdata = <<"EOD";
<chart>
 <!-- グラフデータの属性定義。説明省略。-->
<chart_type>line</chart_type>
   <chart_data>
      <row>
         <null/>
         <string>2001</string>
         <string>2002</string>
         <string>2003</string>
         <string>2004</string>
      </row>
      <row>
         <string>東京</string>
         <number>75</number>
         <number>10</number>
         <number>30</number>
         <number>63</number>
      </row>
      <row>
         <string>大阪</string>
         <number>100</number>
         <number>20</number>
         <number>65</number>
         <number>55</number>
      </row>
      <row>
         <string>札幌</string>
         <number>56</number>
         <number>21</number>
         <number>20</number>
         <number>90</number>
      </row>
   </chart_data>
   <legend_label layout='horizontal' bullet='line' font='Microsoft Sans Serif' bold='true' size='11' color='000000' alpha='65' />
   <draw>
         <image layer='background' url='./img/kagome2.jpg' x='0' y='0' width='400' height='250' alpha='75'
             />
   </draw>
   <axis_value min='0' max='120' steps='6' />
</chart>
EOD
print "Content-type: text/html\n\n"; #HTMLヘッダー*3
$out = Jcode::convert($printdata,'utf8');      #データのUTF-8変換（必須）*4
print $out;                                    #データの出力*5
exit;

#!/usr/bin/perl

#chdir("C:\\Inetpub\\wwwroot\\xmlswf-chart2"); #カレントディレクトリー。Windowsの場合*1
use lib qw(./); #Jcode.pmがインストールできない場合の私用ライブラリー*2
use Jcode;
#
my $file = "graph-data2.csv"; #グラフデータファイルCSV
my %data_table = ();    # グラフデータのハッシュ
undef @alldata;         # 全グラフデータ。最大、最小を得るための配列
#CSVファイルを読む
open IN,$file;          #CSVオープン
while ($line = <IN>) {
   chomp $line;
   my($hanrei, @data) = split /,/, $line;  #ハッシュキー$hanreiは、凡例名
   push (@alldata,@data);                  #全データ配列。最大値取得のため。
   my $ref = [ @data ];                    #@dataは１無名配列。無名配列へのリファレンスを$refへ
   $data_table{$hanrei} = $ref;            #無名配列をハッシュへ
}
close IN;              #CSVクローズ
#カテゴリー軸ラベル
my @cat_labelname = ("2001","2002","2003","2004"); #カテゴリー軸ラベル名配列定義
#データの最大、最小値取得
my $ymemori_no = 20;                       #Y軸データ目盛りの幅20とここでは仮定
my @sorted = sort {$b cmp $a} @alldata;    #降順ソート
my $ymax = $sorted[0];                     #データの最大値
 #データ軸の最大値計算
 my $tick_no = int($ymax/$ymemori_no)+1+1; #データ軸目盛の数+1
 my $y_tickmax = $tick_no*$ymemori_no;     #データ軸目盛の最大値
#-----CSVデータ編集　以上---------------------------------

#-----XMLデータ編集---------------------------------------
$printdata = <<"EOD";
<chart>
 <!-- グラフデータの属性定義。説明省略。-->
<chart_type>line</chart_type>
   <chart_data>
      <row>
         <null/>
EOD
foreach(@cat_labelname){ #カテゴリー軸ラベル定義
   $printdata .= "<string>$_</string>\n";
}
$printdata .= "      </row>";
 #グラフデータ定義*6
foreach $hanrei (keys %data_table) {
    $printdata .= "      <row>\n";
    $printdata .= "         <string>$hanrei</string>\n"; #凡例名を出力
    #  グラフデータ値を出力．
    foreach my $row ( @{$data_table{$hanrei}} ) {
    $printdata .= "         <number>$row</number>\n";    #データ値
    }
    $printdata .= "      </row>\n"; 
}
$printdata .= <<"EOD";
   </chart_data>
   <legend_label layout='horizontal' bullet='line' font='Microsoft Sans Serif' bold='true' size='11' color='000000' alpha='65' />
   <draw>
         <image layer='background' url='./img/kagome2.jpg' x='0' y='0' width='400' height='250' alpha='75'
             />
   </draw>
   <axis_value min='0' max='$y_tickmax' steps='$tick_no' /> <!--データ軸目盛と目盛数セット-->
</chart>
EOD
print "Content-type: text/html\n\n"; #HTMLヘッダー*3
$out = Jcode::convert($printdata,'utf8');      #データのUTF-8変換（必須）*4
print "$out";                        #データの出力*5
exit;