note
tobyink
<c>
use strict;
use warnings;
use List::MapMulti;
my %sizes = (big => 'L', small => 'S');
my %colours = (red => '001', blue => '002', black => '000');
my %origins = (American => 'US', Japanese => 'JP', German => 'DE');
my %products = (car => '0001', truck => '0004');
my @hashes = (\%sizes, \%colours, \%origins, \%products);
my @hash_keys = map [sort keys %$_], @hashes;
mapm {
my @keys = @_;
my @values = map $hashes[$_]{$_[$_]}, 0 .. $#_;
my $product_desc = join q[ ], @keys;
my $product_code = join q[-], @values;
printf "%s - %s\n", $product_code, $product_desc;
} @hash_keys;
</c>
<div class="pmsig"><div class="pmsig-757127">
<small><small><tt>use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name</tt></small></small>
</div></div>
1066593
1066593