case insensitive hash

[Jiri Polcar]

On Thu, Jun 16, 2005 at 08:45:08AM +0200, Honza Pazdziora wrote:
> On Wed, Jun 15, 2005 at 06:14:31PM +0200, Jiri Polcar wrote:
> > 
> > Ano, bohuzel resim. Vlastnost case insensitive se objevila az na zaver,
> > jinak bych zvolil jiny pristup. Ted se mi jevy jako nejjednodussi
> > "upgrade" toto.
> > 
> > Poradite, jak bych mel upravit metodu STORE?
> 
> Mno, mel jsem predstavu neceho jako (netestovano, pseudokod):
> 
> 	sub STORE {
> 		my ($self, $key, $value) = @_;
> 		if (ref $value and ref $value eq 'HASH') {
> 			tie %$value, 'Tie::Folded';
> 		}
> 		return $self->{lc $key} = $value;
> 	}


Pracuje to, hlavne rekursivne, pro jakkoli hluboky hash. Nejak jsem se
bal zacykleni, kdyz zavolam Tie::Folded z Tie::Folded, proto jsem
zazmatkoval...

Mnohokrate dekuji.
S pozdravem,
JP