DULAUNOY Fabrice > Tie-Hash-RegexKeys-1.21 > Tie::Hash::RegexKeys

Download:
Tie-Hash-RegexKeys-1.21.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Module Version: 1.21   Source  

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)

syntax highlighting: