Perlコーディング初心者質問スレ Part 58

Perlコーディング初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

109:nobodyさん
 08/09/02 08:28:05 guk/QrQq
Flashゲームを作成しています 
今スコアについて作成しているのですが 
どうにも反映されません、何が違うのでしょうか 
Flashのスコア登録コードは 
stop (); 
CGIFile = "test.cgi?" + Math.floor(Math.random() * 1000); 
mySaveVars = new LoadVars(); 
mySaveVars.score = score; 
mySaveVars.playername = playername; 
myLoadVars = new LoadVars(); 
myLoadVars.onLoad = function (success) 
{ 
    var _loc1; 
    for (var _loc1 = 0; _loc1 < RANK_MAX; ++_loc1) 
    { 
        ranker[_loc1].playername = myLoadVars["name" + _loc1]; 
        ranker[_loc1].score = myLoadVars["score" + _loc1]; 
    } // end of for 
    gotoAndStop("display"); 
}; 
mySaveVars.sendAndLoad(CGIFile, myLoadVars, "POST");

110:nobodyさん
 08/09/02 08:30:11 guk/QrQq
そしてtest.cgiには 
use CGI 'Vars'; 
my %in = CGI::Vars; 
 
open LOG, '+<score.dat'; 
my %rank = map { chomp; split /\t/, $_, 2; } <LOG>; 
$rank{$in{score}} = $in{name} if $rank{$in{score}} < $in{name}; 
my @rank = sort { $rank{$b} <=> $rank{$a} } keys %rank; 
truncate LOG, 0; 
seek LOG, 0, 0; 
print LOG map { "$_\t$rank{$_}\n" } @rank[0..9]; 
 
print "Content-type: text/plain\n\n"; 
print map { "score$_=$rank[$_]&name$_=$rank{$rank[$_]}&" } 0..9; 
 
test.cgiにはtop10の空欄表示はされますが 
登録する画面にはいかずそのまま終わってしまいます 
score.datも空欄ですが、動いているようです

次ページ