in reply to On creating hash whose keys aren't case-sensitive

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)$/

[download]

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

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

[download]

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


Dave

Replies are listed 'Best First'.
Re^2: On creating hash whose keys aren't case-sensitive
by anazawa (Scribe) on Feb 18, 2012 at 16:29 UTC
    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;
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom