Here's what I might do in this situation to avoid ever-deeper nested data: store each file as a scalar (works best if you know the data won't get *too* large). You could use a straight hash, where the keys are the filenames and the values are the contents of the files, stored as scalars. You could, when printing the data, get out the info you wanted. Here's some code: 

#!/usr/bin/perl -w

# ...
# I assume @files holds the list of filenames
my %data;

foreach (@files) {
    # this will allow us to store the whole file as a string!
    {
        local $/ = undef; #
        open FILE, $_ or die "Couldn't open $_: $!\n";
        $data{$_} = <FILE>;
        close FILE;
    }
}

# to print :

foreach (sort keys %data) {
    my ($city, $id) = split /_/, $_;
    print "City: $city, ID : $id\n";
    print "====\n\n";
    print $data{$_}, "=====\n";
}

[download]

This way of representing might not be maximally efficient for searching, but if the data set's not *too* huge it won't be a worry. If your data set were to get *huge*, then look into an RDBMS; MySQL is available under the GPL =)

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

In reply to Re: Re: Re: Confused about complex data structures. by arturo
in thread Confused about complex data structures. by r.joseph

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.