2

我正在尝试以表格格式打印输出。

我的脚本：

use strict;
my @heading=("FN","SN","BP","SUBBN","LgcBT");
my @values=("1","0","Front","Mother Board","MIU");
print "\n\n";
&HEADING;
print "\n";
&VALUES;
print "\n\n";

sub HEADING {
    foreach (@heading) {
        my $lgth1=length($_);
        printf "%3s","| ";
        printf "%${lgth1}s",$_;
    }
}

sub VALUES {
    foreach (@values) {
        my $lgth2=length($_);
        printf "%3s","| ";
        printf "%${lgth2}s",$_;
    }
}

输出：

 | FN | SN | BP | **SUBBN** | LgcBT

 | 1 | 0 | Front | **Mother Board** | MIU

我需要以一种方式打印输出，如果值比标题长，那么它会自动将标题的长度调整为值的长度。

4

3 回答 3

6

听起来你应该只使用Data::Format::Pretty::Console

于 2011-08-30T09:59:53.397 回答
4

有许多用于“漂亮打印”文本表的模块；我最喜欢的是Text::ASCIITable。

于 2011-08-30T10:18:41.040 回答
0

实现的方法是提前生成一个长度数组：

my @lengths;
for (0..$#lengths) {
    $lengths[$_] = (length($headers[$_]) > length($values[$_])) ? length($headers[$_]) : length($values[$_])
}

当然，有更好的方法来生成@lengths更多 Perl-ish，但恕我直言，这个例子是最容易阅读的。

于 2011-08-30T09:59:46.460 回答