Posted by Masaki Saito on November 19日 (1996年) 23時42分07秒:
In Reply to: 検索機能について posted by ゆうき on November 19日 (1996年) 04時04分01秒:
昔JOY Searcherを動かしていた頃、こんなスクリプトをつくってやってました。
検索対象のhtmlの項目の区切りにコメントを入れて、そのコメントを
perlの区切り文字にして検索し、マッチしたら表示するという感じです。
検索対象がSJISだとうまくいかなかったのでEUCにして処理してました。
=== 処理のあらすじ ==============================
$keyに検索キーが入っている
$/ = ''; #区切り文字をセット
foreach $files(<*.html>){ #カレントディレクトリのHTMLファイルを順次処理
open(IN,$files);
while(
if(/$key/io) { #大文字/小文字の区別なく評価
print; #マッチしたら、その部分を表示
};
};
}