|
| カレッヂ |
|
質問者 kazu
投稿日 1/17(木) 17:04:48
はじめまして，kazuと申します。 dbを作っていて管理番号をdatファイルへ出力したいと考えております。 内容はenter_htmlで@AREAリストから１つ選んだ際に，個々にカウントされた番号をファイルに出力するようにしたいです。 宜しくお願いいたします。 enter_html（登録関数） @AREA = ('東','西','南','北'); ： foreach $line(@AREA) { print "場所：<option>$line</option>\n"; ： 出力ファイル.dat 4,東,2 3,西,1 2,北,1 1,東,1 |
|
回答者 アルル
[削除]
投稿日 1/18(金) 01:18:40
こんにちは。 普通のprint文の場合、標準出力になっています。 ファイルへの出力は open F,'ファイル名'; print F 出力内容; close F; print文のFと出力内容の間にはコンマがないことに注意 詳しくはリファレンスを見てください。 |
|
質問者 kazu
[削除]
投稿日 1/18(金) 19:18:35
ファイルの出力は以下のようにしました。 if(!open(NOTE,">>$datafile")){&error(bad_file);} $value = "$no\,$houi\,$count\,\n"; print NOTE $value; close(NOTE); ここで，countに東西南北のそれぞれのカウントを入れたいと思ってるんですが，上でも書いたように 入力する関数内の ： foreach $line(@AREA) { print "<option>$line</option>\n"; } ： で$lineを選んだ際に，カウントし，出力ファイルに”count”として書き込む方法を，ご教授願います。 |
|
質問者 kazu
[削除]
投稿日 1/18(金) 19:20:11
ファイルの出力は以下のようにしました。 if(!open(NOTE,">>$datafile")){&error(bad_file);} $value = "$no\,$houi\,$count\,\n"; print NOTE $value; close(NOTE); ここで，countに東西南北のそれぞれのカウントを入れたいと思ってるんですが，上でも書いたように 入力する関数内の ： foreach $line(@AREA) { print "<option>$line</option>\n"; } ： で$lineを選んだ際に，カウントし，出力ファイルに”count”として書き込む方法を，宜しくご教授願います。 |
|
回答者 アルル
[削除]
投稿日 1/19(土) 06:37:14
質問を理解するのに時間がかかりました。 プラウザ上のForm から送られてるのデータ（ここでは 東西南北）をCGIでどうやって受け取り区別するかという 問題ですよね。違ってますか？ そうならここでは書ききれないので、post,getメソッド 環境変数$ENV について調べるといいと思います。 |
|
質問者 kazu
[削除]
投稿日 1/22(火) 11:31:36
ありがとうございました。 もう少し格闘してみます。 |
このページは終了したので返信(回答)は書きこめません
| Ｗｅｂ裏技 |