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:[email protected]
+7 (903) 266-26-25
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
