[perl] 支持对key正则匹配查询值的hash

        use Data::Dumper;

        use Tie::Hash::Regex;

        my %h;

        sub uniq {

            my %seen;

            return grep { !$seen{$_}++ } @_;

        }

        tie %h, 'Tie::Hash::Regex';

        $h{key}       = 'value';

        $h{key2}      = 'another value';

        $h{key3}      = 'another value';

        $h{key3.2} = 'another value2';

        $h{stuff}     = 'something else';

        my $pat    = "^key";

        my @vals   = tied(%h)->FETCH($pat);

        my @result = uniq(@vals);

        print Dumper(@result);

        delete $h{k};    # deletes $h{key} and $h{key2};