Re: On creating hash whose keys aren't case-sensitive

[davido]

I haven't personally used the module, but it might be an opportunity to try out Tie::Hash::Regex. Your content-length key could match against a regex like this, for example:

/^(?i:-?content[_-]length)$/

From looking over the synopsis, the lookup would be as follows:

$hash{'^(?i:-?content[_-]length)$'}

Realistically though, it's probably better to leave hash behavior alone, and just normalize your input before trying to do key lookups.

[anazawa]

Thanks for your suggestion. Tie::Hash::Regex interests me. I confirmed your regex passed the following test:

# tie_hash_regex.t
use strict;
use Tie::Hash::Regex;
use Test::Simple tests => 8;

my @keys = qw(
    content-length
    content_length
    -content-length
    -content_length
    Content-Length
    Content_Length
    -Content-Length
    -Content_Length
);

for my $key ( @keys ) {
    my %hash;
    tie %hash, 'Tie::Hash::Regex';
    $hash{ $key } = 1234;
    ok $hash{'^(?i:-?content[_-]length)$'} == 1234;
}