Saat mencoba membuat pesan JSON untuk API, saya menemukan diri saya berjuang untuk melakukan sesuatu yang saya pikir akan sederhana. Saya perlu membuat pesan seperti berikut:
{ "list": [ { "foo": 1, "bar": 2 } ] }
Namun, upaya pertama saya tidak berhasil:
say to-json { foo => [ { a => 1, b => 2 } ] };
# {"foo":[{"a":1},{"b":2}]}
Mencoba menyederhanakan banyak hal lebih membingungkan saya:
say { foo => [ { a => 1 } ] };
# {foo => [a => 1]}
# Note that this is not JSON, but I expected to see curly braces
Kemudian saya mencoba menggunakan beberapa variabel sementara, dan itu berhasil:
my @list = { a => 1 };
say to-json { foo => @list };
# {"foo":[{"a":1}]}
my %hash = ( a => 1 );
say to-json { foo => [ %hash ] };
# {"foo":[{"a":1}]}
Apa yang terjadi di sini?
Dan adakah cara saya dapat mencapai hasil yang diinginkan tanpa variabel sementara tambahan?
say to-json { foo => [ a => 1 ] }
keluaran {"foo":[{"a":1}]}
jadi siapa yang tahu apa yang saya ketik ketika saya mendapatkannya, jika saya pernah melakukannya. Salahku!
say to-json { foo => [ { a => 1 } ] };
harus menampilkan sesuatu seperti{"foo":[{"a":1}]}
, bukan{"foo":["a":1]}
. Yang terakhir adalah salah ketik, kan? Jika tidak, apasay $*PERL.compiler.version;
isinya?