Для полноты картины:
say pop @{[ %r ]};
Ну а хороший вариант (уже предложили выше):
say [%r]->[1];
2012/7/31 Alessandro Gorohovski <[email protected]>
> Ilya Chesnokov <[email protected]> писал(а) в своём письме Tue, 31
> Jul 2012 19:45:04 +0300:
>
>
> 31 июля 2012 г., 20:05 пользователь Alessandro Gorohovski
>> <[email protected]> написал:
>>
>>> perl -e 'my %a = (a => 3); print ((%a)[1]);'
>>>>
>>>
>>>
>>> O, Класс!
>>> Премного благодарен.
>>>
>>> Да, это короче, чем я хотел
>>> (values %a)[0]
>>>
>>
>> По-моему (values %a)[0] выглядит читабельнее.
>> А самый читабельный вариант из предложенных предложил Alexander
>> Onokhov. Вот так и надо писать код ;)
>>
>
> Возможно вы правы,
> но мне интересен был вариант без промежуточных переменных,
> поскольку в окончательном должно было быть так:
>
> say"Ok!" if [%a]->[1] > $value;
>
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
>
--
С уважением,
Анатолий Шарифулин.
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
