インラインリスト表示用のフィルタ


●はじめに

ここに掲載されているページでは、最後にリストを表示していますが、これは、本物のスクリプトファイルを、HTML文書にインライン表示しています。その場合、execcmdでcatコマンドを指定すると、"&<>といった記号がタグだと解釈されてしまいます。そこで、表示用のフィルタを作ってみました。ついでに#（コメント記号）以降に色を付けたりもしています。

●実行例

一番下をみてちょーだい

●導入手順

１.「putlist.cgi」を入手します

ここをクリックするとファイルが拾えます

これをFTPで自分のサイトに転送します。

２.ファイルのパーミッションを変更します

$chmod 755 putlist.cgi

※「$」はUNIXのプロンプトだから入力する必要はないよ。

３.動作確認をします

$putlist.cgi script

scriptには、表示させたいファイル名を指定します。これで画面に表示されればOKです。

４.HTML文書にスクリプトを実行するための1行を入れます

<pre><!--#exec cmd="putlist.cgi script"--></pre>

preで囲むのは、スクリプト内の改行を機能させるためです。

●リスト

#!/usr/local/bin/perl
#インラインリスト表示用のフィルタ▲(c)p4room(http://p4room.mda.or.jp/~roro/)

while(<>){			#ファイルを一行ずつ読み込む
	chop;			#改行を取る
	s/&/&amp;/g ;		#&記号を置き換える
	s/"/&quot;/g ;		#ダブルクォートを置き換える
	s/</&lt;/g ;		#<記号を置き換える
	s/>/&gt;/g ;		#>記号を置き換える
	s/^#(.*)/<font color=yellow>#$1<\/font>/ ;	#先頭から#なら黄色に
	s/\t#(.*)/\t<font color=yellow>#$1<\/font>/ ;	#Tab+#なら黄色に
	print;
	print"\n";
}
exit;

Return IndexPage