Re: How do I create a C-like struct with dynamic fields in Perl?

Perhaps I'm missing something but it sounds like what you want are hash references.

use 5.010; use strict; 

# Poor man's OO, using hash references.

my $alice = { name => 'Alice' };
my $bob   = { name => 'Bob' };
my $carol = { name => 'Carol' };
my $dave  = { name => 'Dave' };

$alice->{spouse} = $bob;
$bob->{spouse} = $alice;

$carol->{spouse} = $dave;
$dave->{spouse} = $carol;

$bob->{employer} = $carol;

say $alice->{name};                            # Alice
say $alice->{spouse}{name};                    # Bob
say $alice->{spouse}{employer}{name};          # Carol
say $alice->{spouse}{employer}{spouse}{name};  # Dave
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re: How do I create a C-like struct with dynamic fields in Perl? Download Code

Replies are listed 'Best First'.
Re^2: How do I create a C-like struct with dynamic fields in Perl? by man-et-arms (Initiate) on Jul 18, 2012 at 22:56 UTC
i'll try it, but i guess it does solve. thanks =)	[reply]