【 スクリプト改造工房 PART 5 】

[0001 nobodyさん 02/08/01 18:19 ID:???]

#================================
# スレッドの説明
#================================

「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。

質問するときは以下の点に注意して書いて下さい

(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い

※答えてくれないからといって逆ギレする厨はお断り

#================================
# 過去のスレッド
#================================

【PART1】行方不明
【PART2】http://pc.2ch.net/test/read.cgi/perl/986986227/
【PART3】http://pc.2ch.net/php/kako/988/988808396.html (HTML化済み)

[0873 872 03/02/23 09:13 ID:???]

>>872は脳内あぼ〜んしてくださいｗ

長いので少しずつ。
#まず、43行目から。状態の種類をここに入力。増やすことも可能
43: @status = ('@ROM', '@使用中','@離席中','@食事中','@すぐ戻ります');

#次に、状態を入力するプルダウンボックスを作る。
#240行目付近に「<b>名前</b>:」とあるので、その行のすぐ下から
237: HTML
238: print "<b>状態</b>：<select name=\"status_form\">\n";
239: print "<option value=\"\">(なし)</option>\n"
240:
241: foreach(@status){print "<option value=\"$_\">$_</option>\n";} #状態を選択するメニューを出力
242: print<<"HTML";
243: </select>

[0874 872 03/02/23 09:23 ID:???]

#最後にCGIに送られてきたデータを受け取る。
450行目付近に、「$name = $FORM{'name'};」
とある。これを、状態の情報を受け取るために

450: $nametemp = $FORM{'name'};
451: $status = $FORM{'status_form'};
452: $name = $nametemp.$status;

に入れ替える。