南東風のパソコン関連ブログ

パソコン中心のブログ(はてなダイアリーよりこちらへ)

Perl_指定桁数で折り返す

 jcode.plは聞いたことがあるが、fold.plは聞いたことがない。テキストファイルを、70行で終え返してほしいときに、使える関数が、定義されている。ちなみに、それをつかると、

require "jcode.pl";
require "fold.pl";
# 行頭禁則処理対象文字列
$notgyoutou = "\)、。)」』】]?ぁぃぅぇぉっゃゅょァィゥェォッャュョー";
# 行末禁則処理対象文字列
$notgyoumatsu = "\((「『【[";

などで、日本語独自の、禁則処理も、Perlで、作ることができる。そういう、コードをみると、日本語らしい?プログラムに便利とおもった。ちょっと身近に感じれた。

入手先は、こちら。

Script集 [utashiro's perl scripts:title]