PerlでUTF-8の文字列をいわゆる半角幅で80文字毎に改行する場合はどのようにしたらよいでしょうか?


※なるべくCPANのライブラリは使いたくないです。(使うにしても少なめでお願いします)

回答の条件
  • 1人2回まで
  • 登録:2006/09/12 20:33:38
  • 終了:2006/09/19 18:11:07

回答(2件)

id:kopug No.1

こぱぐ回答回数3ベストアンサー獲得回数02006/09/12 22:12:47

ポイント35pt

http://cpan.uwinnipeg.ca/htdocs/Jcode/Jcode.html

http://perldoc.jp/docs/modules/Jcode-0.82/Jcode.pod

Jcode.pm の jfold()メソッドを使用してみては如何でしょうか?

MIME::Lite::TT::Japanese ではJcode->jfold()を利用して、

1行あたり任意の文字数で改行コードをいれています。

id:jdash

お返事が遅くなって申し訳ございませんでした。

jflod()メソッドというのは不勉強で初めて知りました。

2番の方のようにサンプルを書いたらうまくできました。ありがとうございました。

2006/09/19 18:04:47
id:b-wind No.2

b-wind回答回数3344ベストアンサー獲得回数4402006/09/12 22:25:58

ポイント35pt

http://search.cpan.org/dist/Jcode/Jcode/Nihongo.pod

モジュールを使わなければ相当難しくなりますよ。

use Jcode;

my $jcode = Jcode->new($string,'utf8');
my @lines = $jcode->jfold(80);

で可能のはずです。

id:jdash

ありがとうございます。お返事が遅くなって申し訳ありませんでした。

Jcodeのjflod(x)を使ったらうまくいきました。

jfold(11)とやったらきちんと半角分もうまくいきました。

 MIME::Lite:
 :TT::Japane
 se ではJcod
 e->jfold()
 を利用して

↑こんな感じになりました。

2006/09/19 18:08:45

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません