comment on

In addition to the issue of assigning default values in the cases where your input data provides none, you also have the issue that your input data has a variable organization. The value of the ProductVersion key might be a reference to an anonymous hash containing the details of a single product version or it might be a reference to an anonymous hash with a key for each of several product versions, where each key is the 'name' of the product version and each value is a reference to an anonymous hash containing the details of that product version (except for the name field, which is the key value).

OK, even I can't read that, and I like words. What I would do is normalize the structure, then process that, maybe like this:

foreach my $product (keys %sw) {
    print "Now processing $product\n";
    my $version = '0';
    my $release = '0';
    my $description = $sw{$product}{'description'};
    my $vendorUniqueKeyRef = $sw{$product}{'vendorUniqueKeyRef'};
    my $swUniqueKey = $sw{$product}{'swUniqueKey'};
    if ($sw{$product}{ProductVersion}) {
        if(exists($sw{$product}{ProductVersion}{name})) {
            # Push the immediate hash down, keyed by name
            # ignoring the duplicate name field
            $sw{$product}{ProductVersion} = {
                $sw{$product}{ProductVersion}{name} => $sw{$product}{P
+roductVersion}
            };
        }
        foreach my $product_version_name (keys %{$sw{$product}{Product
+Version}}) {
            if($sw{$produt}{ProductVersion}{$product_version_name}{Pro
+ductReleaseVersion}) {
                if(exists($sw{$produt}{ProductVersion}{$product_versio
+n_name}{ProductReleaseVersion}{name})) {
                    # Push the immediate hash down, keyed by name
                    # ignoring the duplicate name field
                    $sw{$produt}{ProductVersion}{$product_version_name
+}{ProductReleaseVersion} = {
                        $sw{$produt}{ProductVersion}{$product_version_
+name}{ProductReleaseVersion}{name} =>
                            $sw{$produt}{ProductVersion}{$product_vers
+ion_name}{ProductReleaseVersion};
                    };
                }
                foreach my $product_version_release_name (keys %{$sw{$
+product}{ProductVersion}{$product_version_name}{ProductReleaseVersion
+}}) {
                    # Print / store a record for the case that there i
+s both a ProductVersion and ProductReleaseVersion
                }
            } else {
                # Print / store a record for the case that there is a 
+ProductVersion but no ProductReleaseVersion
            }
        }
    } else {
        # Print / store a record for the case that there is no Product
+Version (and, therefore, no nested ProductReleaseVersion)
    }
};
[download]

I haven't actually printed the output. I would probably do that with some subroutines to avoid duplication, and set defaults if values are missing.

In reply to Re: Iterative HOH or AOH? by ig
in thread Iterative HOH or AOH? by Smaug

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:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.


Keep It Simple, Stupid
	PerlMonks