NAME

Tie::Hash::RegexKeys - 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'

DESCRIPTION

Extend Tie::Hash::Regex to retrieve the KEYS in place of values

METHODS

FETCH_KEYS

Get KEY(S) from the hash. If there isn't an exact match try a regex match.

AUTHOR

Fabrice DULAUNOY <fabrice@dulaunoy.com>

COPYRIGHT

Copyright (C) 2005, Fabrice DULAUNOY. All Rights Reserved.

This script is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

perl(1).

perltie(1).

Tie::RegexHash(1)

Tie::Hash::Regex(1)