[12] 検索対象コードの簡素化
|
- 日時： 2010/10/08 12:27
- 名前： MS
ID:T6OSzjW.
- 参照： http://cocktail-s.net/
- なんとなく来たので；
# ここで記事の内容まで展開して、検索対象にすればいいのかな。
open(KOBETU,"$logdir/$no\.cgi");
$top2 = <KOBETU>;
while (<KOBETU>) {
(undef,$sub2,undef,undef,$com2,undef) = split(/<>/);
$target .= $sub2 if ($in{'r'});
$target .= $com2 if ($in{'c'});
}
close(KOBETU);
####
↓
if($in{'c'}||$in{'res'}){
open(DAT,"$logdir/$no.cgi") || &error("Open Error: $no.cgi");
$top1=<DAT>;
while (<DAT>){
($no1,$sub,$res,$key) = split(/<>/, $top1);
($no2,$sub2,$nam2,$eml2,$com) = (split(/<>/))[0..4];
$target .= $com if ($in{'c'});
$target .= $sub2 if ($in{'s'});
$target .= $nam2 if ($in{'n'});
last if (!$in{'res'});
}
close(DAT);
} else {
$target .= $sub if ($in{'s'});
$target .= $nam if ($in{'n'});
}
↑
こちらがわたくしが実装し、使用しているものです。配布はしていません
たまたま、きりしまさんとおなじく、検索項目指定を4つに変更したため
検索ページは、そっくりな形です。
ソースコードを見ていただくとわかりますが、in{'res'}はレスを含めるかどうかを、in{'c'}は本文を、排他的に独立させてます、
さらに、本文・レスを含めないときにログは開かないようにもしました。
本文検索を選択させるなら、こちらの方がいいようなと思いまして・・・
|
|
