DBMのことで・・・
現在DBMを用いて簡単なデータベースを作成しています。
どこぞのCGIゲームのように、リアルタイムにデーターベースの内容が書き換えられる(戦闘をすればお金がプラス等)ようにしたいのですが、うまくいきませんorz
#!/usr/bin/perl
use AnyDBM_File;
use Fcntl;
print "Content-type: text/html\n\n";
dbmopen(%DBM, 'id', 0666);
$DBM{"baka"} = ("0<>1<>2<>");
dbmclose(%DBM);
print<<"HTMLTAG";
DBを作成しました
HTMLTAG
tie %DBM,AnyDBM_File,"id",O_RDONLY,0666;
@aaa = split(/<>/,$DBM{"baka"});
untie %DBM;
print"$aaa[0]";
$aaa[0]++;
とりあえずこのスクリプトで、ブラウザの更新をおすたびに表示される数字が1あがっていく(プラスされて書き換えられる)ようにしたいのですが・・・
多分ですがゲーム等の場合、いちいちdbmopenで書き換えてないとおもうので、その方法を知りたいというわけです。
いちおうこの段階ではDB作成、DBの読み込みと表示はできています。
ご教授おねがいします。
お礼
かなり返事が送れて申し訳ありません。回答ありがとうございます。