Perlfuck. Перевод ключей хеша в верхний регистр.
Просматривая одни исходники, нашел такую замечательную функцию:
Вот жжесть :)Мой вариант:
Original post http://sharifulin.livejournal.com/17838.html
# Make all hash keys CAPITALsub _cap_hash { my $self = shift; my $rhash = shift; my %hash = map { my $k = $_; my $v = $rhash->{$k}; $k =~ tr/a-z/A-Z/; $k => $v; } keys(%{$rhash}); return \%hash;}Вот жжесть :)Мой вариант:
sub _uc { +{ map { (uc) => $_[1]->{$_} } keys %{$_[1]} } } cross-postOriginal post http://sharifulin.livejournal.com/17838.html
