Re^3: tree-oriented query against table-oriented data

Try this:

#! perl -slw
use strict;
use List::Util qw[ reduce ];
use Data::Dumper;

my %data;

while( <DATA> ) {
    my( $genre, $title, $fname, $lname ) = split '/';
    $data{ $genre } = {} unless exists $data{ $genre };
    $data{ $genre }{ $title } = [] unless exists $data{ $genre }{ $tit
+le };
    push @{ $data{ $genre }{ $title } }, { fname => $fname, lname => $
+lname };
};

print Dumper \%data;

__DATA__
sitcom/simpsons/homer/simpson
sitcom/simpsons/ned/flanders
sitcom/flintstones/fred/flintstone
sitcom/flintstones/wilma/flintstone
sitcom/flintstones/barney/rubble
gameshow/price is right/bob/barker
gameshow/jeopardy/alex/trebek
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^3: tree-oriented query against table-oriented data Download Code


good chemistry is complicated, and a little bit messy -LW
	PerlMonks