特殊フォント変換フィルター spfont.pl

HTMLのソースをHTML文書に埋め込むとき、<>&"などはそれぞれ&lt;&gt;&amp;&quot;などに変換しなければなりません。これが以外と面倒です。perlを使うと自動化することができます。

使い方は簡単です。埋め込みたいHTML文書を cat で標準出力に出力して、spfont.plにパイプするだけです。これをリダイレクトで例えば temp.txt などのファイルとして出力しておき、エディターから読み込みます。

$ cat hoge.html | spfont.pl > temp.txt

ファイル名:spfont.pl
スクリプト:

#!/usr/bin/perl

print '<pre>',"\n";
while ( <> ) {
	s/\&/\&amp\;/g;
	s/\</\&lt\;/g;
	s/\>/\&gt\;/g;
	s/\"/\&quot;/g;
	print;
}
print '</pre>',"\n";

# spfont.pl

自分で使うツールを作るときはフィルターにしておくと便利です。テストのときは、結果を標準出力で見ることができます。また、完成したら、他のツールとの組合せが簡単にできます。