- or download this
use Modern::Perl;
use Text::CSV::Slurp;
...
print Dumper( $ref->{'items'} );
my $csv = Text::CSV::Slurp->create( input => $ref->{'items'} );
- or download this
print "\$ref->{'items'} is " . ref( $ref->{'items'} ) . "\n";
foreach my $item ( @{ $ref->{'items'} } ) {
print $item->{'name'} . " is " . ref( $item ) . "\n";
}
- or download this
$ref->{'items'} is ARRAY
item1 is HASH
item2 is HASH