Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
print
   get($data, 'Colour', qw( Entries Flowers Rose   )), $/,  # red
   get($data, 'Colour', qw( Entries Flowers Dahlia )), $/;  # blue
  2. or download this
    print
   $data->get('Colour', qw( Entries Flowers Rose   )), $/,  # red
   $data->get('Colour', qw( Entries Flowers Dahlia )), $/;  # blue