#!/usr/bin/perl #------------------------------------------# # ↑このperlのパスはプロバイダによって違う # # ので、分からないときはプロバイダに聞く。 # #------------------------------------------# ########################################################### # PerlSearch Ver.2.00 # # # # 種別　　　　　： Free # # 作成日　　　　： 09/30/1998 # # 更新日　　　　： 09/27/2000 # # 著作権者　　　： 飾り職人ひで(Hideyuki Chikada) # # メールアドレス： hideyuki@din.or.jp # # ホームページ　： http://www.din.or.jp/~hideyuki/home/ # # # # Copyright (c) 1998 Hideyuki Chikada # # All rights reserved. # #=========================================================# # この著作権表示は書き換えないで下さい # ########################################################### ########## ↓ 初期設定(必ず書き換える) ↓ ########## ##### ライブラリの呼び出し(jcode.plのパス) require '../library/jcode.pl'; ##### このファイルのURL(相対URLではなく「http://」から始まる絶対URLで指定) $thisfile = 'http://contest2.thinkquest.jp/tqj2003/60004/cgi-bin/search/perlsearch.cgi'; ##### 検索システムのタイトル $title = '*WWCD SEARCH*'; ##### 文字色や背景色、壁紙などの設定(普通のBODYタグ) $body = ''; ##### FORMタグのMETHOD属性 #--------------------------------------------# # Method not implemented..というエラーが　　 # # 出る場合は、POSTを GETに書き換えて下さい。 # #--------------------------------------------# $method = 'POST'; ##### 「ホームページへ戻る」のリンク先URL $back = 'http://contest2.thinkquest.jp/tqj2003/60004/top2.html'; ##### 検索対象のページがあるディレクトリ(相対パスで指定) #----------------------------------------------------------------------# # 複数のディレクトリを指定するには、下のようにカンマで区切って下さい。 # #----------------------------------------------------------------------# @sfiles = ('../../'); ##### 検索対象のファイルの拡張子 #----------------------------------------------------------------# # 複数の拡張子を指定するには、下のようにカンマで区切って下さい。 # #----------------------------------------------------------------# @ext = ('html','htm'); ########## ↑ 初期設定終了 ↑ ########## #----------------------------------------------------------# # ここから下をカスタマイズするには、Perlの知識が必要です。 # # Perlについて十分な知識のない方は、変更しないで下さい。　 # #----------------------------------------------------------# ##### フォームデータ受け取り if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @pairs = split(/&/,$buffer); } else { @pairs = split(/&/,$ENV{'QUERY_STRING'}); } ##### フォームデータのデコード、漢字コードをsjisに変換 foreach $pair (@pairs) { ($k,$v) = split(/=/,$pair); $v =~ tr/+/ /; $v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; &jcode'convert(*v,"sjis","","z"); $in{$k} = $v; } ##### 検索 or フォーム出力 if ($in{'action'} eq "search") { &Search; &PrintHtml; } else { &PrintForm; } ##### 検索 sub Search { $in{'key'} =~ s/(　| )+/ /g; if ($in{'key'} =~ /^ $/) { $in{'key'} = ""; &PrintHtml; } $keyword = $in{'key'}; $keyword =~ s/(\W)/\\$1/g; @keys = split(/\\ /,$keyword); $in{'key'} =~ s/\"/"/g; $in{'key'} =~ s//>/g; $ext = '(' . join('|',@ext) . ')'; foreach (@sfiles) { opendir(DIR,"$_"); @files = grep(/\.$ext$/,readdir(DIR)); closedir(DIR); $all += @files; foreach $url (@files) { open(SFILE,"$_$url"); @souces = ; close(SFILE); $souce = join("",@souces); if ($souce =~ m|\s*(.+)\s*|i) { $stitle = $1; } else { $stitle = ""; } $souce =~ s/<[^>]*>//g; ##### OR検索 if ($in{'case'} eq "or") { $mach = 0; foreach $key (@keys) { if ($key eq "") { next; } if ($souce =~ /$key/i) { $mach = 1; last; } } if ($mach == 1) { push(@hit_urls,"$_$url"); push(@hit_titles,$stitle); } } ##### AND検索 else { $mach = 1; foreach $key (@keys) { if ($key eq "") { next; } if ($souce !~ /$key/i) { $mach = 0; last; } } if ($mach == 1) { push(@hit_urls,"$_$url"); push(@hit_titles,$stitle); } } } } $hitcount = @hit_urls; } ##### 検索結果出力 sub PrintHtml { print "Content-type: text/html\n\n"; ##### ヘッダ出力 print "\n\n$title\n\n"; print "$body\n"; print "

$title

\n"; print "サイト内を全文検索します。キーワードを入力して、検索ボタンを押して下さい。
\n"; print "複数のキーワードを入力するときは、スペース(空白文字)で区切って下さい。

\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print " \n"; if ($in{'case'} eq "or") { print "and検索 \n"; print "or検索\n"; } else { print "and検索 \n"; print "or検索\n"; } print "
\n"; print "\n"; print "ホームページへ戻る\n"; print "
\n"; print "

\n"; ##### 検索結果出力 if ($hitcount == 0) { print "

\n"; print "
該当するページはありませんでした。
別のキーワードで検索して下さい。
\n"; print "

\n"; } else { print "
\n"; print "検索結果 <$allページ中 $hitcount件ヒット>\n"; print "

\n"; print "

\n"; print "
\n"; print "ホームページへ戻る\n"; } ##### フッダ出力 print "
\n"; #--------------------------------# # ここは、書き換えないで下さい。 # #--------------------------------# print "
PerlSearch Ver.2.00
\n"; print "\n\n"; exit; } ##### フォーム出力 sub PrintForm { print "Content-type: text/html\n\n"; ##### ヘッダ出力 print "\n\n$title\n\n"; print "$body\n"; print "

$title

\n"; print "サイト内を全文検索します。キーワードを入力して、検索ボタンを押して下さい。
\n"; print "複数のキーワードを入力するときは、スペース(空白文字)で区切って下さい。

\n"; ##### フォーム出力 print "\n"; print "\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print " \n"; print "and検索 \n"; print "or検索\n"; print "
\n"; print "\n"; print "ホームページへ戻る\n"; print "
\n"; print "


\n"; ##### フッダ出力 print "

\n"; #--------------------------------# # ここは、書き換えないで下さい。 # #--------------------------------# print "
PerlSearch Ver.2.00
\n"; print "\n\n"; exit; }