Re: Is there a simple syntax to logically slice a hash?


Syntactic Confectionery Delight
	PerlMonks

Re: Is there a simple syntax to logically slice a hash?

by tobyink (Canon)

on Feb 21, 2013 at 15:42 UTC ( [id://1019966]=note: print w/replies, xml )

Need Help??

in reply to Is there a simple syntax to logically slice a hash?

Something like this?

use strict;
use warnings;

use Data::Dumper;

my %orig = (
    cat       => 22,
    dog       => 23,
    category  => 66,
    catalyst  => 77,
    cataclysm => 88,
    dogma     => 89,
    dogstar   => 92,
);

my %cats_only = map { $_ => $orig{$_} } grep /^cat/, keys %orig;

print Dumper \%cats_only;
[download]

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name