Slide 29
Slide 29 text
MANAGING DATA
[
{
'friends' => [
{
'name' => 'Tim',
'age' => 21
},
{
'name' => 'Martha',
'age' => 22
}
],
'name' => 'Tom',
'age' => 18
},
$VAR1->[0]{'friends'}[0]
];
my $p1 = { name => 'Tom',
age => 18 };
my $p2 = { name => 'Tim',
age => 21 };
my $p3 = { name => 'Martha',
age => 22 };
my @people = ($p1, $p2);
$p1->{friends} = [$p2, $p3];
use Data::Dumper;
print Dumper(\@people);
Friday, November 4, 2011