#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ #┃■(SS)C−BOARDテンプレート #┠────────────────────────────────────── #┃検索結果画面の設定ファイルです。 #┃通常のHTMLと同じ感覚で編集することが出来ます。 #┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に #┃置き換えられます。 #┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ package DESIGN; #┌────────────────────────────────────── #│検索情報 #└────────────────────────────────────── sub info { my $r_word = shift; #── 検索文字列 print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
検索結果(検索文字列 : ${$r_word})
${&line} <<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── #┌────────────────────────────────────── #│検索結果概要 #└────────────────────────────────────── sub summary { my $r_str = shift; #── 文字列 print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>"; ${$r_str} ${&line} <<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── #┌────────────────────────────────────── #│マッチした過去ログファイル名の表示 #└────────────────────────────────────── sub log_name { my $name = shift; #── ファイル名 print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";  $name
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── #┌────────────────────────────────────── #│マッチした過去ログツリーの表示 #└────────────────────────────────────── sub log_tree { my $path = shift; #── パス my $title = shift; #── タイトル print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";    $title
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>> } #────ここまで─────────────────────────────── 1; # $Id: rst.txt,v 1.1.1.2 2001/11/02 14:25:00 N.Hirai Exp $;