[Moscow.pm] значение единственного элемента хеша

[Akzhan Abdulin]

Я понимаю любовь к Perl, но такая запись не так читаема, как прочие. Даже
запись [1] уже плоха, ибо надо понимать. Всё грешно.

НО: Все можно делать, если вынести это в отдельную функцию, для которой
описать магию, и далее пользоваться только ей.

То есть единственно поддерживаемое решение имеет вид типа

say 'ololo'  if single_value_oof_hash(%h) == 3;

И желательно в функцию поставить барьер на несколько элементов.

31 июля 2012 г., 23:36 пользователь Alex Varyanick <q на cono.org.ua> написал:

> 2012/7/31 Анатолий Шарифулин <sharifulin на gmail.com>:
> > Для полноты картины:
> >
> >   say pop @{[ %r ]};
> >
> > Ну а хороший вариант (уже предложили выше):
> >
> >  say [%r]->[1];
>
> Хз, как-то создание анонимного массива меня немного смущает (IMHO, ни
> с кем не хочу спорить).
> Больше нравится такое решение:
> % perl -le 'my %h = qw/a 3/; print +values%h'
> 3
>
> --
> Varyanick I. Alex
> icq: 102 575 440
> skype: cono..
> q на cono.org.ua
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20120801/b4c3a48c/attachment.html>