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

[tobyink]

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;