perl打印表輸出

Question

我試圖以表格格式打印輸出。

我的劇本：

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

我需要以一種方式打印輸出，如果值比標題長，那么它會自動將標題長度調整為值。

Answer 1

聽起來你應該只使用Data :: Format :: Pretty :: Console

Answer 2

“漂亮打印”文本表有許多模塊; 我最喜歡的是Text :: ASCIITable 。

Answer 3

這樣做的方法是提前生成一個長度數組：

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

當然，有更好的方法來生成更多Perl-ish的@lengths ，但恕我直言這個例子是最容易閱讀的。