Re: Help with Dumping data. Manipulate hashes output.

[Cristoforo]

in reply to Help with Dumping data. Manipulate hashes output.

Here is a small program to illustrate building a table, (using Text::Table).

#!/usr/bin/perl
use strict;
use warnings;
use Text::Table;

my $data = [
             {
              'model' => 'Cisco 7911',
              'name' => 'SEP00229004C80A',
              'product' => 'Cisco 7911'
            },
            {
              'model' => 'Cisco 7911',
              'name' => 'SEP00229004C851',
              'product' => 'Cisco 7911'
            },
            {
              'model' => 'Cisco 7911',
              'name' => 'SEP00229004CC92',
              'product' => 'Cisco 7911'
            },
        ];

my @headers = qw/ Model Name Product /;
my $tb = Text::Table->new( map {title => $_}, @headers );

for my $href (@$data) {
    $tb->load( [ @$href{ map lc, @headers }    ] );
}

print $tb;

***prints

Model      Name            Product
Cisco 7911 SEP00229004C80A Cisco 7911
Cisco 7911 SEP00229004C851 Cisco 7911
Cisco 7911 SEP00229004CC92 Cisco 7911

Chris