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( DATA ) {
chomp;
my( $resource, $url, $term, $facet ) = split /,/;
$profit{ $facet }{ $term }{
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.edu'
How do I loop through a reference to an array?
I have the following data structure:
my %facets = (
'audiences' = [('freshman', 'senior')],
'subjects' = [('music', 'history')],
'tools' = [('dictionaries', 'catalogs')]
);
I can use this code to get the keys for %facets:
foreach my $key1 (sort(keys(%facets))) {
foreach my $key2 (sort(keys(%facets{$key1))) {
print $key1 / $key2 \n;
}
}
Spencer
On 2/10/06, Eric Lease Morgan [EMAIL PROTECTED] wrote:
How do I loop through a reference to an array?
I have the following data structure:
my %facets = (
Ergg, just realized my copy of Programming Perl is at home. Ah well, the
old noggin is pretty sure how to do this.
Quick short answer, @{$facets{$key}}..so
foreach $foo (@{$facets{$key}}) {
print Hello, I'm $foo. Pleased to meet ya.\n;
}
or something along those lines
Jonathan T.
On Feb 10, 2006, at 3:58 PM, Eric Lease Morgan wrote:
Now I'm going to make each value in the referenced array a
reference to a hash; I'm going to make my data structure deeper.
'More later.
Since that worked so well, I'll ask this question. Given the
following data structure, how do I
On 2/10/06 Eric Lease Morgan wrote:
On Feb 10, 2006, at 3:51 PM, Jonathan Gorman wrote:
How do I loop through a reference to an array?
I have the following data structure:
my %facets = (
'audiences' = [('freshman', 'senior')],
'subjects' = [('music', 'history')],
'tools' =
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'
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