Question

是否有一个模块以ls -C的方式打印（或帮助我打印）一个列表，其元素是字符串（标量）？

类似以下想象的程序：

use strict; use warnings;

use Unknown::Module;

my $ls = new Unknown::Module (columns => 3);

$ls -> print_ls_C qw(abc def ghi jklmnop q rst uv wxy z);

输出应该是

 abc  jklmnop  uv
 def  q        wxy
 ghi  rst      z

Answer 1

use Perl6::Form;
my $cols = shift || 3;
my @list = qw(abc def ghi jklmnop q rst uv wxy z);
print form   q/ {:[{*}[:} / x $cols, ( \@list ) x $cols ;;;
__END__
abc                      jklmnop                  uv
def                      q                        wxy
ghi                      rst                      z

这是示例demo_columns，请参阅https://metacpan.org/source/DCONWAY/Perl6-Form-0.04/demo

中的更多示例

是否有一个模块打印像`ls -C`这样的列表？

1 个答案: