Greetings SmokeyB,

I was bored (and I think I'm coming down with a fever, so coding is always fun) so I coded up some stuff for you. It's not good code, but it may help you get in the direction you're looking for. I made the assumption that "into tables" means "into HTML tables".

#!/usr/bin/perl
use strict;
use warnings;

my %foo = (
  Info => [
    {
      MakeEng   => 1,
      MakeFre   => 2,
      ModelEng  => 3,
      ModelFre  => 4,
      ModelYear => 5,
    },
    {
      MakeEng   => 6,
      MakeFre   => 7,
      ModelEng  => 8,
      ModelFre  => 9,
      ModelYear => 0,
    },
  ],
  VIN => {
    VINStatus    => 'active',
    VechileDT    => 'on',
  },
);

foreach my $table (keys %foo) {
  print '<h3>', $table, '</h3>', "\n";
  print "<table>\n";
  if (ref $foo{$table} eq 'HASH') {
    print '<tr><td>', $_, '</td><td>', $foo{$table}{$_}, "</td></tr>\n
+"
      foreach (keys %{$foo{$table}});
  } elsif (ref $foo{$table} eq 'ARRAY') {
    print '<tr>';
    print '<td>', $_, '</td>' foreach (keys %{$foo{$table}[0]});
    print "<tr>\n";
    foreach my $row (@{$foo{$table}}) {
      print '<tr>';
      print '<td>', $_, '</td>' foreach (values %{$row});
      print "<tr>\n";
    }
  } else {
    print "<tr><td>Badness. Something unexpected in %foo</td></tr>\n";
  }
  print "</table>\n\n";
}

exit;

[download]

I don't know the extent of your project, but if you're looking for something long-term that's going to map into some kind of web reporting thing, you should definately take a look at HTML::Template. Using that, you could just muck around a little with your %foo and then just pass that into a template. Magic then happens.

gryphon
code('Perl') || die;

In reply to Re: Hash of Arrays of Hashes Parsing by gryphon
in thread Hash of Arrays of Hashes Parsing by SmokeyB

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.