Article View: fj.lang.perl
Article #123CGI+perl+GD
From: Ken Kawahata
Date: Thu, 19 Mar 1998 00:00
Date: Thu, 19 Mar 1998 00:00
30 lines
1365 bytes
1365 bytes
CGI+perl+GDでちょっと問題が生じています。
下はFORMから値をもらって、これを表示するスクリプトですが、
一回目は問題なく動くのですが、2回目以降はブラウザからreloadしないと
前回の表示のままになります。
それが、プラットホームに依存するみたいで、
windows95+Netscapeは問題なし、
solaris+Netscapeで発生、
という状況です。
perlスクリプトに問題があるのでしょうか、それともブラウザでしょうか。
#!/usr/local/bin/perl5
use GD;
%data=&read_input;
$| = 1;
print "Content-type: image/gif", "\n\n";
$image = new GD::Image (100, 100);
$black = $image->colorAllocate (0, 0, 0);
$white = $image->colorAllocate (255, 255, 255);
$image -> filledRectangle(0,0,100,100,$white);
$image -> string(gdLargeFont,10,10,$data{a},$black);
print $image->gif;
exit(0);
(sub read_inputは省略)
--
川畑 賢 / アルプス電気
Technical Details
Message-ID:
<3510A123.3DFB@alps.co.jp>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS X-Google-Thread: 1043e7,a4784f3d57381224,start X-Google-Attributes: gid1043e7,public From: Ken Kawahata <kawahata@alps.co.jp> Subject: CGI+perl+GD Date: 1998/03/19 Message-ID: <3510A123.3DFB@alps.co.jp> X-Deja-AN: 335475890 Content-Transfer-Encoding: 7bit Mime-Version: 1.0 Content-Type: text/plain; charset=iso-2022-jp Organization: Alps Electric Co.,LTD. Newsgroups: fj.lang.perl