[perl] 支援對key正則匹配查詢值的hash
阿新 • • 發佈:2018-12-11
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};
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};