検索エンジン一発で表示するするには？

[上に] [前に] [次に]
チャモア 1998/11/04(水) 17:28:15
くだらない質問ですいません。
下のような検索エンジンもどきを作ってみたものの
超初心者の私には訳が分らなくなってきてしまいました。
結果はコレでも出るんですが一回ボタンと言うリンクを押さないと
表示されません。
コレを一発で表示できるようにしたいんですが。
どうか教えて下さい。


#!opt/bin/perl/

###################################### 初期設定 ################################################

#$InDat = "/cgi-bin/jyutaku/folder.dat"; # 読み込みファイルを設定
$InDat = "folder.dat"; # 読み込みファイルを設定

################################################################################################

# フォームからの入力データを読み込んで $FORM{'XXXX'} に設定する

if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
} else {
$query_string = $ENV{'QUERY_STRING'};
}
@a = split(/&/, $query_string);
foreach $x (@a) {
($name, $value) = split(/=/, $x);
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
# $value =~ s/%(\w\w)/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}

open(INDATA,"<$InDat"); # 読み込みファイルのオープン

$i=0; # 配列の初期化

while (<INDATA>){ # レコードを分割し配列に入力
($J[$i],$E[$i])=split(/\t/,$_);
if ($J[$i]=~ /\Q$FORM{ search }\E/){ # 入力データの判定
$kekka = $E[$i]; # 変数にファイル名を入力
$result="1";
last;
}
else{
$result="0";
}
$i++;
}

close(INDATA); # ファイルクローズ


if($result=="0"){ # エラー判定
print "HTTP/1.0 200 ok\n";
print "Content-type: text/html\n\n";
print "<html>\n";
print "<body bgcolor=#ffffff>\n";
print "該当するキーワードがありません！！\n";
print "</body>\n";
}
elsif($result=="1"){

# $OutDat = "/www/jyutaku/$kekka.html"; # 検索結果ファイルを設定
# open(OUTDATA,"<$OutDat"); # 読み込みファイルのオープン

# while ($_ = <OUTDATE>) {
# $hyoji = $_;
# print $hyoji;
# }

print "HTTP/1.0 200 ok\n";
print "Content-type: text/html\n\n";
print "<html>\n";
print "<body bgcolor=#ffffff>\n";
print "<center>\n";
print "<a href=\"/www/jyutaku/$kekka.html\">ボタン</A>\n";
print "</center></body>\n";
}

close(OUTDATA); # ファイルクローズ
B-Cus 1998/11/04(水) 17:59:30
print "<html>\n";
…
print "</center></body>\n";

をコメントアウトして、

$OutDat = "/www/jyutaku/$kekka.html"; # 検索結果ファイルを設定
open(OUTDATA,"<$OutDat"); # 読み込みファイルのオープン
print <OUTDATA>;

を追加すればいいんじゃないでしょうか?

> 下のような検索エンジンもどきを作ってみたものの

自作のスクリプトならわかると思うんですが。
だって自分でコメントアウトしてるじゃない。
チャモア 1998/11/05(木) 09:25:12
[[解決]]
ありがとうございました。
できました。
感謝します。
[上に] [前に] [次に]