([^<]+)<\/A><\/div>/i){
$category = "#".$1;$subject = $2;
# 主題にリンクがある場合のカテゴリと主題の取得
}elsif($line =~ /^
([^<]*)(?:)*([^<]+)(?:<\/A>)*([^<]*)<\/A><\/div>/i){
$category = "#".$1;$subject = $2.$3.$4;
# タグで日記を抜ける
}elsif($line =~ /^<\/DL>$/i){
$insw = 0;# フラグを降ろす
last;# foreach ループを抜ける
}
$line =~ s/<.+?>//g;# HTML タグを削除
# 日記部分であり、かつ検索パターンにマッチすると
# マッチした部分を赤いフォントに設定して、
# 日付、ファイル名、フラグメント、主題をキーに格納する
if($insw == 1 && $line =~ /$kw/io){
while($line =~ s/(>[^><]*)($kw)(?!<\/font>)/$1$2<\/font>/i){
;
}
if($line !~ /[<>]/){
$line =~ s/($kw)/$1<\/font>/ig;
}
$count++;
$anchor{"$date\t$dfile$category\t$subject"} .= "
$title
$title
($count) $line
\n"; } } } # CGI HTML 先頭部分の出力 print <-
HERE1
# マッチした記事部分を整理して、HTML 出力
foreach $key (sort keys(%anchor)){
($date,$link,$subject) = split(/\t/,$key);
# メモるシステム連動のための追加 [2004-11-07]
$date_encoding = &juri_encode($date);
$rnurl_encoding = &juri_encode("${siteurl}$link");
$subject_encoding = &juri_encode($subject);
print "
- $date: $subject → メモ作成
- \n";
###
print $anchor{$key};
print "
\n"; } # CGI 終了部分出力 print <
$sitename >> <$mailaddress>