Help for this page

Select Code to Download


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