perl - 如何在 Perl 中创建列式输出？

Question

!/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
                     ...

我忘了提及:文本应该有一个开放的结尾，即文本行的右端应该与终端的大小相对应地对齐。

我如何更改脚本以实现我的目标？

Answer 1

您可以使用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 );