gnuplot / webplot / access_cgi
| 集計結果のプロットCGIを使って毎回集計する方法 前の方法では，リアルタイムな集計は まず，前節と同様に最初に画像の場所のPATHを定義します．サーバ内での絶 $abspath='/absolute/path/to/parent_of_image/'; $webpath='/relative/path/to/parent_of_image/'; $imgfile="access.png"; $logfile='/home/www/httpd/logs/access_log'; $gnuplot='/path/to/gnuplot'; $abspathは，イメージファイルを置くディレクトリで，サーバ 全体の流れは，前節のスクリプトと同じです． open(LOG,$logfile); while(<LOG>){ if(/.html/){ split; $day = substr($_[3],1,2); $mon = substr($_[3],4,3); $year= substr($_[3],8,4); $count[$day]++; } } close(LOG); $day=$#count; $count[$day+1]=$count[$day]; & make_gnuplot; open(GNUPLOT,"| ".$gnuplot); foreach $i (0..$#plot){ print GNUPLOT $plot[$i]; } for($i=1;$i<=$#count;$i++){ printf(GNUPLOT "%10d%10dn",$i,$count[$i]); } print GNUPLOT "endn"; close(GNUPLOT); & generate_html; exit 0; sub make_gnuplot{ $i=0; $plot[$i++]=sprintf("set term png colorn"); $plot[$i++]=sprintf("set output '%s'n",$abspath.$imgfile); $plot[$i++]=sprintf("set size 0.7,0.7n"); $plot[$i++]=sprintf("set xrange [0:32]n"); $plot[$i++]=sprintf("set yrange [0:*]n"); $plot[$i++]=sprintf("set xtics 1,7,31n"); $plot[$i++]=sprintf("set mxtics 7n"); $plot[$i++]=sprintf("set nokeyn"); $plot[$i++]=sprintf("set gridn"); $plot[$i++]=sprintf("set title '%s %s'n",$mon,$year); $plot[$i++]=sprintf("plot '-' with stepn"); } gnuplotでイメージを作った後，そのURLをHTMLにしてブラウザに返す部分 sub generate_html{ print << "EOF"; Content-Type: text/html <html> <head><title> access_log stat </title></head> <body bgcolor="white"> <center><img src="$webpath$imgfile"></center> </body> </html> EOF できあがったperlのスクリプトをcgi-binの中に置いておき，htmlドキュメ < a href=”/cgi-bin/webplot_cgi.pl/”> Web Plot </a> 一般に，イメージファイルはブラウザにキャッシュされるため，何度も続  |
