Tie::Hash::RegexKeys 1.2

Tie::Hash::RegexKeys will match hash keys using Regular Expressions.

SYNOPSIS

use Tie::Hash::RegexKeys;
use Data::Dumper;

my %h;

tie %h, Tie::Hash::RegexKeys;

my $a = .1.2.3.4.5.6.2;
my $b = .1.2.3.4.5.7;
my $c = .1.2.3.4.5.6.1;
my $d = .1.2.3.4.5.6.1.6;

$h{$a}="key1";
$h{$b}="key2";
$h{$c}="subkey1";
$h{$d}="subkey2";

my $pat = ^.1.2.3.4.5.6.*;
my @res = tied(%h)->FETCH_KEYS(qr/$pat/);
print Dumper(@res);

Return this:

$VAR1 = .1.2.3.4.5.6.1;
$VAR2 = .1.2.3.4.5.6.1.6;
$VAR3 = .1.2.3.4.5.6.2