case insensitive hash

[Honza Pazdziora]

On Wed, Jun 15, 2005 at 05:54:04PM +0200, Jiri Polcar wrote:
> 
> Modul TieFolded uvadim na konci mailu. Problem je, ze potrebuju, aby se
> vlasnost nerozlisovani velikosti pismen v klicich "dedila" i do hashoveho
> pole, ktere tvori hodnotu $hash->{'karel'}. Takto:

Jinymi slovy, pokud je jako hodnota vkladana reference na hash, tak
chcete i na tento hash dat tie na tuto tridu. Vidim to tedy na
prislusnou opravu metody STORE ....

>     $hash->{'karel'} = {};
>
>     tie %{$hash->{'karel'}},  'TieFolded';
>
>     $hash->{'karel'}->{'abc'}  = 2;
>     $hash->{'kAREl'}->{'aBc'} += 2;

... coz Vam chyti tyto jednoduche pripady, ale uz ne pripad, kdy
udelam

	$hash->{karel} = {
		a => 1,
		A => 2,
	};

takze by asi bylo vhodne v takovem pripade osetrit, ze se na zacatku
provede znormalizovani toho "podhashe" a vsech podpodhashu.

Otazka samozrejme muze znit i tak, na co to v realu potrebujete
(jestli nahodou neresite problem, ktery vubec nemel vzniknout).

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, large Web systems, XML/XSL, ...
		Only self-confident people can be simple.