perlで一行を一定の文字数で出力させるにはなにか、良い方法はありませ

質問

perlで一行を一定の文字数で出力させるにはなにか、良い方法はありませんでしょうか？
なお、文字の途中で折り返すのではなく、単語(配列の一単語)単位で処理させたいと思っています。

[プログラム例]
#! /usr/bin/perl
@list = ("a", "bb", "ccc", "dddd", "eeeee", "ffffff");
{
local $, = ", ";
print @list;
}

[出力]
a, bb, ccc, dddd, eeeee, ffffff

[望む出力]
a, bb, ccc,
dddd, eeeee,
ffffff

※ printする前にlengthでバイト数を調べて、折り返すかどうかの判断をしないとだめなのでしょうか？

回答No.1

uwi · ベストアンサー

formatではダメですか？

#!/usr/bin/perl
my @list = ("a", "bb", "ccc", "dddd", "eeeee", "ffffff");
my $text = join(', ', @list);<
format STDOUT =<
~~^<<<<<<<<<<<
$text
.
write;

参考URL：

http://www.rfs.jp/sb/perl/02/11.html

お礼

有難うございました。ばっちりです。色々調べてみたエッセンス:

^<<< : 表示できなかったときにスカラ文字列をchopして保持
~~ : repeat line until all fields are exhausted
の組み合わせ。
@listは a, bb, ccc, .... と空白で区切ることで単語として認識させる。