Perl_指定桁数で折り返す

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

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

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

入手先は、こちら。

Script集　[utashiro's perl scripts:title]