Tuesday, July 30, 2013

How do you access elements of hash containing an array and a hash?

my %employee = ( 
CSV_NAME => 'EMPLOYEE',
columns => [    
[EMP_ID => 'ID'],  
[EMP_NAME => 'ENAME'],   
],);

print $employee{CSV_NAME};
print "\n";
print map $_->[0], @{$employee{columns}};
print "\n";
print map $_->[1], @{$employee{columns}};

No comments :