#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(SS)C−BOARDテンプレート
#┠──────────────────────────────────────
#┃検索結果画面の設定ファイルです。
#┃通常のHTMLと同じ感覚で編集することが出来ます。
#┃なお、途中にある「$〜」はそれぞれプログラムによって任意の文字列に
#┃置き換えられます。
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
package DESIGN;
#┌──────────────────────────────────────
#│検索情報
#└──────────────────────────────────────
sub info {
my $r_word = shift; #── 検索文字列
print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
検索結果
(${$r_word})
${&line}
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ ヘッダー
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub head {
print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
$CNF::mobile{'header'}
${&line}
[メニュー]
${&line}
<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>
}
#────ここまで───────────────────────────────
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ フッター
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub foot {
shift; local *page = shift;
print <<"<<<<<<<<<<<<<<<<<<<<<< HTMLです >>>>>>>>>>>>>>>>>>>>>>";
$page{'info'}
$CNF::mobile{'footer'}