データベース検索のperlをカスタマイズ中です。
ユーザが入力したものを、検索条件のひとつにしたいのですが、表示されません。
インプットしたものはlogファイルに書き込まれるので、それを開いて反映させればいいのだろうということまでは、なんとかわかるのですが、どのように表記していいのか・・・今はない知恵を絞ってこのように表記しているのですが。
if (!open(FD,"$logfile")) { &error(0); }
@lines = <FD>; $cnt = @lines;
close(FD);
print "<select name=P2 >\n";
print "<option value=\"0\" selected>指定なし\n";
$i =0;
foreach $line (@lines) {
($no,$sub,$com1,$com2,$com3,$p1,$p2,$p3,$p4) = split(/\,/,$line);
chop;
if ($p2 ne '') {
$i++;
$p2s{($p2)[0]}++; $n++;
}
}
foreach (keys %p2s) {
print "<option value=\"$_\">$_\n"; }
print "</select></td>\n";
No.1ベストアンサー
- 回答日時:
えと。
ユーザの入力したものはlogファイルに書き込まれていて、
その形式は
($no,$sub,$com1,$com2,$com3,$p1,$p2,$p3,$p4)
を「,」で区切ったものなんですね。
大まかなやりたいことが書いてあるのは大まかな方針が立つので
とてもよいことです。
んで、細かく最終的にやりたいことも、もう少し書いてあると
助かるんで補足してください。
(ていうか最初からそこまで書いてあるほうがいいですよ。
表示されません。じゃ参考にならないです)
log.txt-----------------
1,s,c1,c2,c3,p1,p2_1,p3,p4
2,s,c1,c2,c3,p1,p2_2,p3,p4
3,s,c1,c2,c3,p1,,p3,p4
4,s,c1,c2,c3,p1,p2_4,p3,p4
------------------------
みたいな入力をどうしたいですか?
------------------------
<option value="p2_1">p2_1
<option value="p2_2">p2_2
<option value="p2_4">p2_4
------------------------
たとえば、上のようになればいいだけなら、
boriさんのプログラムでも動いているようですよ。:)
現在のプログラムがどんな出力をしているのかは調べましたか?
この回答への補足
すいません、説明不足で・・・
出力を確認すると、エラー表示がでるのです。
■ 業 務
Content-type: text/html
ERROR !
0
というふうに。■業務というのが、いわゆるp2の中身というか、今回表示させたいものなのですが・・・このタイトルの下にプルダウン形式で入力したものを表示させて、検索キーのひとつにしたいのです。
したいことは、y_okuさんが理解してくださっているとおりです。
よろしくお願いします。
補足などもしましたが、「できてますよ」のひとことを信じていろいろ試して
while(<IN>){
を使ったらできるようになりました。
ありがとうございました。
No.2
- 回答日時:
その 「ERROR!」という表示が、1行目にある「&error(0);」によるものであるとすれば、ファイルが開けてないんでしょうね。
spell miss とかないですか?この回答への補足
ええっと、その後いろいろいじっていたら、どうも表示した場所がわるかったらしくエラー表示はでなくなりました。(^^ゞ
しかし、やはり、プルダウンメニューには、opution value=0の指定なしという表示しかされません。せめて、logファイルを読み込んでいるのかどうかの確認がとれればとも思います。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- JavaScript JavascriptからSQLへ繋ぎ方が分からない 3 2022/07/07 00:27
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- Java java 引数 戻り値のあるメソッド 3 2023/02/12 06:23
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- JavaScript console.logがどうしても2つ機能しないのでアドバイスをくださいお願いします 2 2022/07/07 22:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- JavaScript セレクトボックスを2つ選択してメッセージなどを表示するには。~運賃検索プログラムを完成させたい~ 1 2022/07/22 11:10
- JavaScript セレクトボックスで配列を呼び出したい。 1 2022/07/08 20:14
- JavaScript 電車の運賃を出すプログラムを作っています。 2 2022/06/22 09:36
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Perlで特定文字列から特定文字...
-
テキストファイルで提出とは?
-
openした後、closeしないでプロ...
-
Perlのエラーについてご教授く...
-
perlの構文でカンマの意味が分...
-
Perl の外部モジュールの利用方法
-
Perlでsprintf("%02d",$month)...
-
Perlでの文字列置換
-
フローチャート 九九
-
perl LWPでURLにアクセスした時...
-
perl 初等プログラミングについて
-
Perlで、「が」を、「...
-
Windows版のPerlについて
-
このファイルを開く方法で困っ...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
INDIRECT 横に再度抽出したい
-
perlをバージョンアップしたら...
-
openした後、closeしないでプロ...
-
Perlで特定文字列から特定文字...
-
Wallpaper Engineでおすすめの...
-
Perlのエラーについてご教授く...
-
アルファベットに付いて質問し...
-
Strawberry Perl for Windows ...
-
bashスクリプト
-
テキストファイルで提出とは?
-
Perl の外部モジュールの利用方法
-
#!/usr/bin/perlで書きだしたCG...
-
Windows10においての『Perl』の...
-
perlのflock関数でロックをかけ...
-
perlで2次元配列をサブルーチ...
-
Perlで時間の計算
-
perlのrequireの動き方について...
-
画像が表示でnull; this.src
-
ターミナルで特定の文字と文字...
-
英数文字列のうちの数値を4桁に...
おすすめ情報