Perl быстро JSON программа парсер

Question

Мой JSON-файл содержит около 3000 строк контента, как показано ниже:

{ 
    "product": [ 
     { 
      "data": [ 
       { 
        "number":"111", 
        "price":"3170", 
        "stock":"1" 
       }, 
       { 
        "number":"222", 
        "price":"3170", 
        "stock":"1" 
       }, 
       { 
        "number":"333", 
        "price":"3749", 
        "stock":"1" 
       } 
      ], 
      "object":"apple", 
      "id":"54529" 
     }, 
     { 
      "data":[], 
      "object":"orange", 
      "id":"54524" 
     } 
    ] 
} 

Мне нужно, чтобы разобрать их очень быстро.

Ниже приведен мой код. Это не работает ..

use strict; 
use warnings; 
use JSON qw(); 

my $filename = 'mob.json'; 

my $json_text = do 
{ 
    open(my $json_fh, "<:encoding(UTF-8)", $filename); 
    local $/; 
    <$json_fh> 
}; 

my $json = JSON->new; 
my $data = $json->decode($json_text); 

for (@{$data->{'product'}}) 
{ 
    print $_->{data}[0]->{number}; 
} 

Мне нужно, чтобы получить number, price, stock и object, id, а также.

Answer 1

Ваш код работает нормально. Почти. Я сделал пару попыток.

Вы указали скорость в начале. Неясно, нужен ли вам быстрый ответ или более быстрый способ разбора большого количества информации. Если это первый, читайте дальше. Если это последний, убедитесь, что у вас установлен JSON :: XS.

По стилю я нахожу это болезненным взглядом.

1. Использование файла do{} для чтения файла заставляет меня хотеть причинить себе боль. Но вы использовали 3-param open. Престижность.
2. Вы должны почтительное значение массива из хэша
3. Вы должны обрабатывать пустые значения в данных или вы будете продолжать получать предупреждения

Этот код анализирует вашу JSON и выводит его, substuting пустые Vals с «undefined»:

use strict; 
use warnings; 
use JSON qw(); 

my $filename = 'mob.json'; 

my $json_text = do { 
    open(my $json_fh, "<:encoding(UTF-8)", $filename); 
    local $/; 
    <$json_fh>; 
}; 

my $json = JSON->new()->utf8(1); 
my $data = $json->decode($json_text); 

for my $product (@{$data->{'product'}}){ 

    my ($name, $id) = map { $product->{$_} // 'undefined' } qw(name id); 
    print sprintf("Product: %s (%s)\n", $name, $id); 

    foreach my $data (@{$product->{'data'}}) { 
     my ($number, $price, $stock) = 
      map { $data->{$_}//'undefined' } qw(number price stock); 

     print sprintf(
      " number: %s, price: %s, stock: %s\n", 
      $number, 
      $price, 
      $stock, 
     ); 
    } 
    print "\n"; 
}