perl - 我如何使用 Perl6::Form 的引用？

Question

我正在尝试使用 Perl6::Form 打印表格数据，但我不确定如何从哈希引用输出数据。到目前为止，这是我尝试过的:

#!/usr/bin/perl
use Perl6::Form;

my @alerts; 

push @alerts, { site => "192.168.0.1", status => "200", id => "QWE" };
push @alerts, { site => "192.168.0.2", status => "500", id => "QER" };

print form
        ' ====================================== ',
        '| ID          |    SITE    | STATUS    |',
        '|-------------+------------+-----------|',
        '| {[[[[[[[[[} |{[[[[[[[[[} | {>>>>>>>} |',
           \@alerts{id}, \@alerts{site},\@alerts{status},
        ' ====================================== ';

Answer 1

你需要并行数组。

my @ids      = map { $_->{id}     } @alerts;
my @sites    = map { $_->{site}   } @alerts;
my @statuses = map { $_->{status} } @alerts;

print
   form
      '+=======================================+',
      '| ID          | SITE        | STATUS    |',
      '|-------------+-------------+-----------|',
      '| {[[[[[[[[[} | {[[[[[[[[[} | {>>>>>>>} |',
         \@ids,        \@sites,      \@statuses,
      '+=======================================+';

我们可以消除代码重复。

my %dbf;   # Data by field
for my $field (qw( id site status )) {
   $dbf{$field} = [ map { $_->{$field} } @alerts ];
}

print
   form
      '+=======================================+',
      '| ID          | SITE        | STATUS    |',
      '|-------------+-------------+-----------|',
      '| {[[[[[[[[[} | {[[[[[[[[[} | {>>>>>>>} |',
         $dbf{id},     $dbf{site},   $dbf{status},
      '+=======================================+';