！/usr/bin/env perl
use warnings; use strict; my $text = 'hello ' x 30; printf "%-20s : %s\n",'very important text',$text;
这个脚本的输出看起来更像这样：
very important text : hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello hello ...
但我想要一个像这样的输出：
very important text: hello hello hello hello
hello hello hello hello
hello hello hello hello
...
我忘了提到：文本应该有一个开放的结尾,因为文本行的右端应该对应于终端的大小.
我怎样才能更改脚本以达到目标？
解决方法
你可以使用
Text::Wrap：
use strict; use Text::Wrap; my $text = "hello " x 30; my $init = ' ' x 20; $Text::Wrap::columns = 80; print wrap ( '',$init,'very important text : ' . $text );