WWW検索V3.05で、特定のページを検索結果に引っかからないようにするには？
[上に]
[前に]
[次に]
Moonlight
[E-Mail]
[HomePage]
2000/01/05(水) 08:23:45
とほほのWWW検索3.05を使わせいただいてます。
HPの表紙には ほとんどすべての語句がのっているので
検索するたびに表紙（上フレームと下フレーム）にはいっている
ページもでてきてしまいます。
検索結果に表紙を含めないようにしたいのですが、特定のページを
検索結果に引っかからないようにすることはできますか？
松下%俄か管理者
2000/01/07(金) 13:07:48
wwwserch.cgiの164行目から
--------------引用--------------------------------
#
# すべてのファイルをなめ回す
#
sub search1 {
local($dir) = $_[0];
local(@filelist, $file, $filename);
opendir(DIR, $dir);
@filelist = readdir(DIR);
closedir(DIR);
foreach $file (@filelist) {
if ($file eq ".") { next; }
if ($file eq "..") { next; }
-----------------------------------------------------
ここで
if ($file eq ".") { next; }
if ($file eq "..") { next; }
の次の行に、
if ($file eq "index") { next; }
if ($file eq "hohe") { next; }
if ($file eq "fuga") { next; }
を追加すると
index.htm(html)とhoge.htmとfuga.htmが読み飛ばせませんか？
邪道かも知れません。
Moonlight
[E-Mail]
2000/01/07(金) 14:03:21
ご回答ありがとうございます＾＾
試してみましたが 読み飛ばせませんでした。
読み飛ばしたいファイルと wwwsrch.cgiのディレクトリー構造
も関係が有るのでしょうか…？
松下%俄か管理者
2000/01/07(金) 15:29:48
>読み飛ばしたいファイルと wwwsrch.cgiのディレクトリー構造
検索が出来ているなら、関係ないと思います。
拡張子（.html）は付けていませんよね？
具体的に一行書いたら、他の人からアドバイスがもらえるかも
知れませんね？
ちなみに、私は、このやり方で、読み飛ばしています。
Mr.Data
2000/01/08(土) 07:16:02
Perl初心者のわたしが以前やっていた方法なんですが、
(.html)と(.htm)で分けるというのはどうですか？
邪道かな？
Moonlight
[E-Mail]
2000/01/08(土) 11:04:11
[[解決]]
sub search1 {
local($dir) = $_[0];
local(@filelist, $file, $filename);
opendir(DIR, $dir);
@filelist = readdir(DIR);
closedir(DIR);
foreach $file (@filelist) {
if ($file eq ".") { next; }
if ($file eq "..") { next; }
if ($file eq "index") { next; }
if ($file eq "content") { next; }
if ($file eq "CcjNavi") { next; }
$filename = "$dir/$file";
if (-d $filename) {
&search1($filename);
} else {
&search2($filename, $dir);
}
}
}
こんな感じで書き換えてみましたが、content.htmlとCcjNavi.html
も呼び出されてしまいました。
どこが悪かったのか不明ですが、Mr.Dataさんの htmlとhtmで
分ける方法でうまくできたのでOKです。
どうもありがとうございました＾＾
[上に]
[前に]
[次に]