将数据从 JSON 传递到变量以进行比较

Question

我有一个使用 GET 在 API 中发出的请求 LWP::UserAgent, 数据以 JSON 形式返回，最多返回两个结果，如下：

{
   "status":1,
   "time":1507891855,
   "response":{
      "prices":{
         "nome1\u2122":{
            "preco1":1111,
            "preco2":1585,
            "preco3":1099
         },
         "nome2":{
            "preco1":519,
            "preco2":731,
            "preco3":491
         }
      }
   }
}

转储：

$VAR1 = {
  'status' => 1,
  'time' => 1507891855,
  'response' => {
                  'prices' => {
                                'nome1' => {
                                             'preco1' => 1111,
                                             'preco3' => 1099,
                                             'preco2' => 1585
                                           },
                                'nome2' => {
                                             'preco3' => 491,
                                             'preco1' => 519,
                                             'preco2' => 731
                                           }
                              }
                }
};

我想做的是：

获取这些数据并将其保存在一个变量中，以便使用 if 与另一个已存储名称的变量进行比较。比较将与 name1 / name2 进行比较，如果其他变量为真，它将得到 preco2 和 preco3 来打印所有内容

我在这个案例中最大的问题是 JSON 中的一些名称包含诸如 \u2122 的 (TradeMark) 之类的字符（有些情况是其他字符），所以我无法与另一个名称进行比较已经具有正确名称的变量

nome1™

如果我只能保存已经“转换”的 JSON，那么剩下的字符会帮助我。

基本上在请求 API 之后，我想将内容保存在一个变量中，该变量已经将所有 \u2122 转换为它们各自的字符（这是我不知道如何在 Perl 中执行的部分），然后使用另一个比较它们的变量名称等于显示价格

感谢您的帮助，如有任何问题，请告诉我，我尝试以另一种方式再次解释。

Answer 1

如果我理解正确，您需要将收到的 UTF8 格式的 JSON 转换为您可以处理的内部变量。为此，您可以使用JSON::XS:

use utf8;
use JSON::XS;

my $name = "nome1™";
my $var1 = decode_json $utf8_encoded_json_text;

# Compare with name in $name
if( defined $var1->{'response'}->{'prices'}->{$name} ) {
  # Do something with the name that matches
  my $match = $var1->{'response'}->{'prices'}->{$name};

  print $match->{'preco1'}, "\n";
}

通过在脚本开头指定use utf8;，确保告诉 Perl 解释器您的源代码是 UTF8。然后确保您使用支持该格式的编辑器编辑脚本。

函数decode_json 将返回一个转换后的值的引用。在这种情况下，哈希参考。从那里你可以进入 JSON。

如果您知道 $name 将在 JSON 中，您可以省略 defined 部分。否则，defined 子句将告诉您哈希值是否存在。你知道的，你可以用它做点什么。如果哈希值是一个没有特殊字符的单词，您可以使用$var1->{response}->{prices}->{$name}，但使用$var1->{'response'}->{'prices'}->{$name} 总是更安全。 Perl 处理哈希引用有点难看...

顺便说一句，在JSON::XS 中，您还可以找到encode_json 函数来做相反的事情，并且也是一个面向对象的接口。