带空格的Perl json键[重复]

Question

如何解析键中有空格的 perl json 对象

{
   "abc" : [
       "lmn" : {
          "Ab Cd" : "Xy Zw",
          "Ef Gh" : "Pq Rs",
       }
   ]
}

Answer 1

根据定义，使用 JSON 解析器解析 JSON。 CPAN 上有多个 JSON 解析器，包括Cpanel::JSON::XS。它可以毫无问题地处理带有空格的键，其他所有 JSON 解析器也应如此。

请注意，您拥有的不是 JSON。自从您询问 JSON 以来，我假设错误是拼写错误。

Answer 2

键中的空格对任何 JSON 解析器都不会造成任何问题。

但是，您的 JSON 中有两个问题会导致任何解析器出现问题。其他人注意到"Pq Rs" 之后的额外逗号，但您还有一个包含键/值对（键为"lnm"）的数组，该数组需要位于对象内部。

原来，我只是去掉逗号，然后运行这段代码：

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use Data::Dumper;
use JSON;

my $json = '{
   "abc" : [
       "lmn" : {
          "Ab Cd" : "Xy Zw",
          "Ef Gh" : "Pq Rs"
       }
   ] 
}';

my $data = decode_json($json);

say Dumper $data;

这给出了一个错误：

或 ] 解析数组时应在字符偏移 28 处（在 ": {\n "Ab C..." 之前）

我通过在 lnm 对象周围插入 { ... } 来修复它。

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use Data::Dumper;
use JSON;

my $json = '{
   "abc" : [ {
       "lmn" : {
          "Ab Cd" : "Xy Zw",
          "Ef Gh" : "Pq Rs"
       }
   } ] 
}';

my $data = decode_json($json);

say Dumper $data;

然后我得到了这个输出：

$VAR1 = {
          'abc' => [
                     {
                       'lmn' => {
                                  'Ab Cd' => 'Xy Zw',
                                  'Ef Gh' => 'Pq Rs'
                                }
                     }
                   ]
        };

我认为，这正是你所期待的。