Perl output array of hashes as table

Question

Если у вас есть массив хэшей, в котором ключ представляет имя столбца, а значение представляет собой содержимое строки, что было бы лучшим способом для вывода этого в виде таблицы в perl?

Answer 1

Имеются ли в каждой строке одинаковые ключи хэша? Это структура, которую вы получите, например. из DBI, что соответствует общепринятым свойствам таблиц (т. е. каждая строка имеет одинаковый набор столбцов). Вот пример того, что я имею в виду, и я надеюсь, что это соответствует тому, что вы думаете:

my @AoH = (
    {id => 1, name => 'Dick'}, 
    {id => 2, name => 'Jane'}, 
); 

В таких случаях Вы обычно знаете, что столбцы. Я сделаю это предположение. Здесь же есть код:

my @cols = qw(id name); 
my @AoH;     # as above 

# print the column headings 
print join "\t", @cols; 

# print values for each row using a hash slice 
for my $row_ref (@AoH) { 
    print join "\t", @$row_ref{@cols}; 
} 

Answer 2

Нравится?

my @AoH = (
    {a => 1, b => 2}, 
    {c => 3, d => 4}, 
); 

Это отображает N-мерную таблицу, где N - количество элементов в массиве. Вы не можете реально визуализировать его больше, чем N = 3, если только вы не рухнете хешей (то есть сделайте все это одним большим хешем.)

Если вы просто имеете в виду, что табулируйте «реверсивный» хеш, просто переставьте его:

my %a = (a => 1, b => 1); 

my %b = map { $a{$_} => $_ } keys %a; 

while (my ($k, $v) = each %b) { 
    printf("%s %s\n", $k, $v); 
}