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'

Product's homepage

Requirements:

· Perl