json - 在 Perl 中解析简单的 JSON 数组

Question

可能重复：
解析 perl 数组

我正在尝试编辑一个旧的 perl 脚本，我是一个完整的初学者。来自服务器的请求返回为：

$result = {
 "data": {
  "translations": [
   {
    "translatedText": "Halloween"
   }
  ]
 }
}

如何解析这个 JSON 字符串来抓取：

$result = "Halloween"

谢谢。

Answer 1

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;
use JSON;

my $json = '{
 "data": {
  "translations": [
   {
    "translatedText": "Halloween"
   }
  ]
 }
}';

my $data = decode_json($json);

say $data->{data}{translations}[0]{translatedText};

Answer 2

有无数可用的 JSON 解析模块；最标准的一个是JSON。

Answer 3

您可以采取简单的方法并这样做（没有检查是否编译）：

my $translatedText = ""
if ($result =~ /"translatedText": "(.+?)"/)
{
    $translatedText = $1;
}

如果您想解析更多项目和不同的 json 字符串，那么您应该使用一些 perl 模块（有一些可用的）