Re: hash key regular expression pattern


more useful options
	PerlMonks

Re: hash key regular expression pattern

by snowcrash (Friar)

on Nov 07, 2002 at 09:57 UTC ( [id://211033]=note: print w/replies, xml )

Need Help??

in reply to hash key regular expression pattern

Hi! A quick search on the CPAN and I found Tie::RegexpHash, which seems to suit your needs. I've never used it, but here's an example from the man page:

use Tie::RegexpHash;
my %hash;
tie %hash, 'Tie::RegexpHash';

$hash{ qr/^5(\s+|-)?gal(\.|lons?)?/i } = '5-GAL';

$hash{'5 gal'};     # returns "5-GAL"
$hash{'5GAL'};      # returns "5-GAL"
$hash{'5  gallon'}; # also returns "5-GAL"
[download]

snowcrash