🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.perl
Article #119

Re: wgnuplotについて

#119
From: Yasuyuki Mukai
Date: Wed, 18 Mar 1998 00:00
75 lines
2583 bytes
kaoru itou wrote:
> 2.www上からwgnuplotを起動して、www上にグラフを表示する事ができるでしょ
> うか。

# もし、「unix上での方法は知っとるわい。Windowsの事が知りたいのじゃ。」と
# 言う事でしたら無視して下さい。

最近unix上で同じ事をやったので、参考までに方法を載せて見ます。
ただし、Windowsでは変更の必要があると思いますし、また、Windows
のhttpdは色々な種類があるので、何か限定しないと方法が異なるかも
知れません。
# ちなみに、ここで問題になるのは $PPMTOGIF = '/usr/X11R6/bin/convert PNM:- GIF:-';
# に相当するものがWindows上にあるかどうかだと思います。
# wgnuplotのHELPにはPBMPLUS packageで出来るような事が書いてありますが。

それでは見本です。まずHTMLファイル。
gnuplot_test.htm
<HTML>
<HEAD>
<TITLE>gnuplot test</TITLE>
</HEAD>
<BODY>

<CENTER>
<H1>gnuplot test</H1>
<IMG SRC="cgi-bin/gnuplot_test.cgi" ALT="test" >
</CENTER>
</BODY>
</HTML>


次にperlスクリプトです。
gnuplot_test.cgi
#!/usr/local/bin/perl

$GNUPLOT = '/usr/contrib/bin/gnuplot';
$PPMTOGIF = '/usr/X11R6/bin/convert PNM:- GIF:-';

$|=1;

print "Content-type: image/gif\n\n";

open (GRAPH,"| $GNUPLOT | $PPMTOGIF") || die ;
print GRAPH <<END;
set term pbm color
set size 0.5,0.5
set grid
set autoscale
set time
set title "Access log"
set xlabel "Day"
set ylabel "Count" 1
plot '-' using 2 notitle with impulses
# log(HTML Page)
#Date Counts
 1996/03/27  25
 1996/03/28  43
 1996/03/29   0
 1996/03/30  11
 1996/03/31  11
 1996/04/01  66
 1996/04/02 133
 1996/04/03  82
END

close GRAPH;
exit;

実行結果は以下を参照してください。
http://www.imasy.or.jp/~yasuyuki/test/gnuplot_test.htm

# wgnuplotでは
# plot '-' using 2 notitle with impulses
# のような記述はできないようです。
Technical Details
Message-ID: <350E9995.44C7@imasy.or.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <350720CD.1EFC@asahi.hitachi.co.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 1043e7,54794740a3691406
X-Google-Attributes: gid1043e7,public
From: Yasuyuki Mukai <yasuyuki@imasy.or.jp>
Subject: Re: wgnuplotについて
Date: 1998/03/18
Message-ID: <350E9995.44C7@imasy.or.jp>
X-Deja-AN: 334918415
Content-Transfer-Encoding: 7bit
References: <350720CD.1EFC@asahi.hitachi.co.jp>
Mime-Version: 1.0
Reply-To: yasuyuki@imasy.or.jp
Content-Type: text/plain; charset=iso-2022-jp
X-Complaints-To: usenet@imasy.or.jp
X-Trace: light.imasy.or.jp 890149273 1880 (None) 202.227.24.16
Organization: IMASY / Internet Mutual Aid Society Yokohama
Newsgroups: fj.lang.perl