1183667
Tonyu BBS
[再読み込み] [ホームページ] [使いかた] [ワード検索] [管理用]

おなまえ

Eメール
題  名  
コメント(http(s)://などのURLが含まれていると投稿できないことがあります)
添付プログラム
※プログラムに関する質問は、そのプログラムを添付して送ると対応が早くできます
添付方法...
削除キー (自分の記事を削除時に使用。英数字で8文字以内)
文字色
ネットランキング 投稿者 : ドィ(YahooBB220063240065.bbtec.net)
- 2004/08/26(Thu) 13:50 No.6935
 


 今、ネットランキングについてやっていますが、
CGIで分からないものがあります。自分はスコアの
低い方が上で、高いほうが下という風にしたいんです。
CGIについての知識があまり無いので誰か教えてください。

#!/usr/bin/perl

require 'tonyuLib.pl';

# written by Hoge- Ship

$password='******';


$data='data/hiscore';

$maxEntry=100;

$title='ネットランキング';

$cginame='hiscore.cgi';

print <<"EOF";
Content-type: text/html

<html>
<title>$title</title>
<body>
<center>
<h2>$title</h2>
EOF

$wait='##########wait for registration####';
$ok=&tonyuLib'makeRankParam($password);
$nscore=$tonyuLib'r{'score'};
$ntime=$tonyuLib'r{'time'};
$nname=$tonyuLib'r{'name'};
$nurl=$tonyuLib'r{'url'};
$nmail=$tonyuLib'r{'mail'};

open IN,$data;
while (<IN>) {
    push @lin,$_;
}
close IN;

if ($ok && $nscore) {
    $outed=0;
    $time=time;
    open OUT,">$data";
    $pt=0;
    foreach $l (@lin) {
($score,$name,$mail,$url)=split(/,/,$l);
if ($nscore>$score && !$outed) {
    print OUT "$nscore,$time,$wait\n";
    $outed=1;
}
        if (!($mail =~ /$wait/) || $time-$name<3600  ) {
    print OUT $l;
        } 
    }    
    if ($#lin+1<$maxEntry && !$outed) {
print OUT "$nscore,$time,$wait\n";
$outed=1;
    }
    close OUT;
    if ($outed ) {
&inputName
    } else {
¬Ranked;
    }
} else {
    if ($ntime) {
open OUT,">$data";
$pt=0;
foreach $l (@lin) {
    ($score,$name,$mail,$url)=split(/,/,$l);
    if ($name eq $ntime) {
print OUT "$score,$nname,$nmail,<tr><tr><tr><$nurl\n";
$pt++;
    } else {
if ($pt<$maxEntry) {
    print OUT $l;
    if (!($mail =~ /$wait/)) {
$pt++;
    }
}
    }
}    
close OUT;
&printRank;
    }
    elsif ($nscore) {
®istError;
    } else {
&printRank;
    }
}

print "</center>";
©right;# この行は毎回必ず実行してください

sub printRank {
    print <<"EOF";
<table>
<tr><td>得点</td><td>名前</td></tr>
EOF
    open IN,$data;
    while (<IN>) {
s/\n$//;
$l=$_;
($score,$name,$mail,$web)=split(/,/,$l);
        if (!($mail =~ /$wait/)) {
  print "<tr>";
  print "<td>$score</td>";
  print "<td>";
  print "<a href=\"mailto:$mail\">" if $mail;
  print "$name";
  print "</a>" if $mail;
  print "</td>";
  if ($web) {
    print "<td><a href=\"$web\">HomePage</a></td>";
  }
  print "</tr>";
        }
    }
    close IN;
    print <<"EOF";
</table>
EOF
}

sub inputName {
        print <<"EOF";
Congratulations!<HR>
$nscore点なので登録できます!

<form action="$cginame">
<input type="hidden" name="time" value="$time">
お名前<input type=text name="name">

メールアドレス<input type=text name="mail">

Webページアドレス<input type=text name="url">

<input type="submit" value="ok">
</form>

EOF




sub notRanked{
    print <<"EOF";
Sorry....<HR>
$nscore点はランクインしません。
EOF
}

sub registError{
print <<"EOF";
error!<HR>
登録できません。原因として次のことが考えられます
<ul>
<li> プログラムを書き換えた<P>

  アーカイブ内のファイルを書き換えると登録できなくなります。
  アーカイブを解凍しなおしてください。


  フォルダ内に余分なファイルがあるとうまくいかないことがあるので、フォルダを上書きせずに、
一度フォルダを削除することをおすすめします。
<P>
<li> Tonyuランタイムではなく、Tonyu開発環境からプログラム実行している<P>

  このゲームの開発環境であるTonyu Systemからは登録できません。

</ul>
EOF

}

# 著作権表示。ここから下は変更、削除しないでください。
sub copyright {
print <<"EOF";
<HR>
<div align="right"> 
<a href="http://tonyu.kake.info.waseda.ac.jp">Tonyu System</a>
 Hi-Score Ranking Program/Written by Hoge- Ship
</div>
</body></html>
EOF
}


Re: ネットランキング 投稿者 : ドィ(YahooBB220063240065.bbtec.net)
- 2004/08/26(Thu) 13:51 No.6936
 
 あっとスイマセン 結構これでかいんですね・・・・・
あまり気にしてませんでした・・・・・・・・


Re: ネットランキング 投稿者 : T(catv-148-010.tees.ne.jp)
- 2004/08/26(Thu) 17:43 No.6937
  HomePage
CGIについての質問は受け付けていない、ってのが原則ですよね?
それにhiscore.cgiの中身は初期状態ならどれも変わらないのですから、
わざわざ貼る必要はないのでは、と思ってしまいます。
マナー違反が少し気になります。

簡単に言いますと、
if ($nscore>$score && !$outed) {

if ($nscore<$score && !$outed) {
にするだけです。


Re: ネットランキング 投稿者 : ドィ(YahooBB220063240065.bbtec.net)
- 2004/08/27(Fri) 06:37 No.6938
 
 すいませんでした・・・・・


無題 投稿者 : Michael Pollitt(81.177.15.43)
- 2006/04/01(Sat) 04:23 No.9525
 
Best site I see. Thanks.

無題 投稿者 : Paulo(81.177.15.43)
- 2006/04/01(Sat) 04:20 No.9524
 


Alleen onder Glamour versta ik wat anders maar dat moet kunnen.

無題 投稿者 : Dirk(81.177.15.43)
- 2006/04/01(Sat) 04:15 No.9523
 


This is a wonderful wealth of information. Good Luck!

無題 投稿者 : Dirk(81.177.15.43)
- 2006/04/01(Sat) 04:14 No.9522
 


This is a wonderful wealth of information. Good Luck!

無題 投稿者 : John(81.177.15.43)
- 2006/04/01(Sat) 04:13 No.9521
 


Very good site. Thanks for author!

.
[直接移動] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [55] [56] [57] [58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78] [79] [80] [81] [82] [83] [84] [85] [86] [87] [88] [89] [90] [91] [92] [93] [94] [95] [96] [97] [98] [99] [100] [101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120] [121] [122] [123] [124] [125] [126] [127] [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139] [140] [141] [142] [143] [144] [145] [146] [147] [148] [149] [150] [151] [152] [153] [154] [155] [156] [157] [158] [159] [160] [161] [162] [163] [164] [165] [166] [167] [168] [169] [170] [171] [172] [173] [174] [175] [176] [177] [178] [179] [180] [181] [182] [183] [184] [185] [186] [187] [188] [189] [190] [191] [192] [193] [194] [195] [196] [197] [198] [199] [200] [201] [202] [203] [204] [205] [206] [207] [208] [209] [210] [211] [212] [213] [214] [215] [216] [217] [218] [219] [220] [221] [222] [223] [224] [225] [226] [227] [228] [229] [230] [231] [232] [233] [234] [235] [236] [237] [238] [239] [240] [241] [242] [243] [244] [245] [246] [247] [248] [249] [250] [251] [252] [253] [254] [255] [256] [257] [258] [259] [260] [261] [262] [263] [264] [265] [266] [267] [268] [269] [270] [271] [272] [273] [274] [275] [276] [277] [278] [279] [280] [281] [282] [283] [284] [285] [286] [287] [288] [289] [290] [291] [292] [293] [294] [295] [296] [297] [298] [299] [300] [301] [302] [303] [304] [305] [306] [307] [308] [309] [310] [311] [312] [313] [314] [315] [316] [317] [318] [319] [320] [321] [322] [323] [324] [325] [326] [327] [328] [329] [330] [331] [332] [333] [334] [335] [336] [337] [338] [339] [340] [341] [342] [343] [344] [345] [346] [347] [348] [349] [350] [351] [352] [353] [354] [355] [356] [357] [358] [359] [360] [361] [362] [363] [364] [365] [366] [367] [368] [369] [370] [371] [372] [373] [374] [375] [376] [377] [378] [379] [380] [381] [382] [383] [384] [385] [386] [387] [388] [389] [390] [391] [392] [393] [394] [395] [396] [397] [398] [399] [400] [401] [402] [403] [404] [405] [406] [407] [408] [409] [410] [411] [412] [413] [414] [415] [416] [417] [418] [419] [420] [421] [422] [423] [424] [425] [426] [427] [428] [429] [430] [431] [432] [433] [434] [435] [436] [437] [438] [439] [440] [441] [442] [443] [444] [445] [446] [447] [448] [449] [450] [451] [452] [453] [454] [455] [456] [457] [458] [459] [460] [461] [462] [463] [464] [465] [466] [467] [468] [469] [470] [471] [472] [473] [474] [475] [476] [477] [478] [479] [480] [481] [482] [483] [484] [485] [486] [487] [488] [489] [490] [491] [492] [493] [494] [495] [496] [497] [498] [499] [500] [501] [502] [503] [504] [505] [506] [507] [508] [509] [510] [511] [512] [513] [514] [515] [516] [517] [518] [519] [520] [521] [522] [523] [524] [525] [526] [527] [528] [529] [530] [531] [532] [533] [534] [535] [536] [537] [538] [539] [540] [541] [542] [543] [544] [545] [546] [547] [548] [549] [550] [551] [552] [553] [554] [555] [556] [557] [558] [559] [560] [561] [562] [563] [564] [565] [566] [567] [568] [569] [570] [571] [572]
- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

- Joyful Note -