リストボックスから選択、結果を表示する。

質問

お世話になります。

perlでcgiを作りたいのですが、
簡単なsampleはないでしょうか。
参考になるようなページを教えていただければ十分です。

【機能】
ファイルｘをリストボックスから選択させ、
内容を表示する。

【ファイルｘの内容例】
リンゴ、青森、３００
ミカン、和歌山、６０
バナナ、輸入、１８０
というように、品名、産地、単価の項目が列んでいます。

【動き】
リストボックスでファイルｘを表示させ、
選ばれた項目の単価を表示する。

【イメージ】
リストボックス
リンゴ
ミカン
バナナ

↓

ミカンを選ぶ

↓

単価は６０円です。
と表示する。

以上、分かりにくいですが、
宜しくお願いします。

回答No.2

shimix · ベストアンサー

>確認されている４項目のうち、
>まさに３番目のどうＦＯＲＭを作ればよいのかが分かりません。

1・2番目が出来ているのであれば難しくはないと思います。まして4番目もOKならそのまま流用できますよ。

　　print "<div>";
　　print "<select name="term">";
　　（ファイルを開く）
　　Loop（ファイルから1行読み込み：EOFならLoop終了）
　　　　読み込んだ行から品名を取り出す（$hinmeiとする）
　　　　print "<option value=\"$hinmei\">$hinmei";
　　　　ここまでを繰り返し
　　print "</select>";
　　print "</div>";

要するにLoopの前でselectまで出力しておいて、Loopの中で「option」だけをprintする形です（Loopを抜けたらselectを閉じる）。

お礼

shimixさん、
またまた有り難うございました。
そうですね、何でも吐き出せるので、
読むたびに吐き出せばいいのですね、
説明していただいたので良く理解できました。
早速やってみます。
多分出来ると思います。
どうも有り難うございました。
お世話になりました。

回答No.1

shimix

どのあたりからがわかりませんか？（この項、補足要求にします）

・ファイルからデータを行単位で読み込む部分はわかりますか？
・その行を品名、産地、単価に切り分けることは出来ますか？
・その内容でどういうHTML（フォーム）を出力すればいいかわかりますか？
・フォームから品名を受け取ったときに、ファイルから読み込んだデータを検索する部分は？

最初の2つがわからないようでしたら、適当な入門書（もしくはサイト）を探すべきだと思います。さすがにそこから説明すると長くなりますので・・。

お礼

shimixさん、早速有り難うございます。
やはり言葉足らずでしたね、申し訳ありません。

確認されている４項目のうち、
まさに３番目のどうＦＯＲＭを作ればよいのかが分かりません。

もう少し詳しく書くと、
始めから項目を下記のようにリストしておき、
<div>
<select name="term">
<option value="ミカン">ミカン
<option value="リンゴ">リンゴ
<option value="バナナ">バナナ
<option value="パイナップル">パイナップル
<option value="メロン">メロン
<option value="オレンジ">オレンジ
<option value="マンゴ">マンゴ
</select>
</div>

例えばミカンが選択されたら、
そのミカンでファイルｘを検索し、
単価を表示することは出来ます。

今回お聞きしたかったのは、
上記のテーブル（リストのこと）を始めから記述するのではなく、
ファイルｘから作り出す部分が知りたいのです。
いわゆる別立てのファイルｘさえメンテしておけば本体ｃｇｉは
メンテ不要という作りにしたいのです。

これで分かっていただけたでしょうか。
宜しくお願いします。