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?