Short answer: $profit{ $facet }{ $term }{ $resource } = $url;
Example:
#!perl
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Terse++;
$Data::Dumper::Indent--;
my %profit;
while( ) {
chomp;
my( $resource, $url, $term, $facet ) = split /,/;
$profit{ $facet }{ $term }{ $res
On Feb 11, 2006, at 8:16 AM, Brad Baxter wrote:
I have this sample data structure:
my %profile = (
'subjects' => {
'astronomy' => {
'telescope world' => 'http://telescope.com',
'stars r us' => 'http://websters.com',
'asto magazine' => 'http://oxford.ed
