Re: Inheritance in Hash

And another way could be something like:

#!/usr/bin/perl -w
use strict;

my $data = {
    Colour  => 'blue',
    Entries => {
        Flowers => {
            Dahlia => {
                Smell => 'nice'
            },
            Rose   => {
                Colour => 'red'
            }
        }
    }
};

my $ref_flowers = $data->{Entries}->{Flowers};

my $colour = sub{my $fl=shift; $ref_flowers->{$flw}->{Colour}};
my $smell = sub{my $fl=shift; $ref_flowers->{$flw}->{Smell}};

print "Rose's color is ",$colour->('Rose'),".\n" if $colour->('Rose');
print "Dahlia smells ",$smell->('Dahlia'),".\n" if $smell->('Dahlia');

__OUTPUT__
Rose's color is red.
Dahlia smells nice.
[download]

Miguel

Comment on Re: Inheritance in Hash Download Code

Replies are listed 'Best First'.
Re^2: Inheritance in Hash by ikegami (Patriarch) on Apr 21, 2005 at 04:21 UTC
`print "Dahlia's color is ",$colour->('Dahlia'),".\n"` doesn't print "blue", as requested.	[reply] [d/l]
Re^3: Inheritance in Hash by Miguel (Friar) on Apr 21, 2005 at 18:09 UTC
You're right. `#!/usr/bin/perl -w use strict; my $data = { Colour => 'blue', Entries => { Flowers => { Dahlia => { Smell => 'nice' }, Rose => { Colour => 'red' } } } }; my $ref_flowers = $data->{Entries}->{Flowers}; my $colour = sub { my $flw=shift; $ref_flowers->{$flw}->{Colour} \|\| $data->{Colour} }; print "Rose's color is ",$colour->('Rose'),"\n"; print "Dahlia's color is ", $colour->('Dahlia'),"\n"; __output__ Rose's color is Red. Dahlia's color is Blue.` [download] Miguel	[reply] [d/l]