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
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 10, 2006, at 5:41 PM, Bruce Van Allen wrote:
foreach my $facet_key (keys %facets) {
print "$facet_key\n";
my %sub_hash= %{ $facets{$facet_key} };
foreach my $sub_key (keys %sub_hash) {
print "\t$sub_key\n";
my %inner_hash= %{ $sub_hash{$sub_key} };
foreach my $i
My previous message got kinda long, so here's some tested Perl that does
just what Eric's last message asked for:
#!/usr/bin/perl -w
use strict;
my %facets = (
'tools' => {
'dictionaries' => {
'websters' => 'http://websters.com',
'oxford' => 'http://oxford.edu'
