人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

●質問者: jdash2000
●カテゴリ:インターネット ウェブ制作
✍キーワード:CPAN Perl UTF-8 ライブラリ 文字列
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● こぱぐ
●35ポイント

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行あたり任意の文字数で改行コードをいれています。

◎質問者からの返答

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

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

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


2 ● b-wind
●35ポイント

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

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

use Jcode;

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

で可能のはずです。

◎質問者からの返答

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

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

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

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ