[Moscow.pm] reverse изменяет аргумент

[Konstantin S. Uvarin]

On Mon, 2012-10-01 at 19:20 +0400, Denis Evdokimov wrote:
> perl -MJSON -e'my %a=(int => 222); print to_json \%a; my %b=reverse %
> a; print to_json \%a;'

Необязательно revesre, print работает ничуть не хуже. И даже просто
"$a{int}".

perl -MJSON -e'my %a=(int => 222); print to_json \%a; print "$a{int}";
print to_json \%a;'

Насколько я понимаю, perl старается быть максимально ленивым и
преобразовывать число в строку как можно реже (т.е. 1 раз on demand). А
JSON пакует строку, если таковая есть.

-- 
С уважением, Константин Уварин
jabber:lodin на jabber.ru
+7 (903) 266-26-25