🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.perl
Article #123

CGI+perl+GD

#123
From: Ken Kawahata
Date: Thu, 19 Mar 1998 00:00
30 lines
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-mail

Show 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