如何改进这个 perl/bash 单行代码来反序列化 json 数据

Question

我有一个小 bash 程序，它调用返回 JSON 数据的 Web 服务。

我自己编写了Web服务程序，我可以完全控制它的数据源，因此我可以信任返回的数据。

现在我想对数据做一些事情。

数据是一个简单、短的键值结构，没有嵌套，看起来像这样：

{
  "asciifile" : "../tmp/data_20120720_105746-01580.txt",
   "excelfile" : "../tmp/data_01580-20120720_105746.xlsx",
   "from" : "Jun 19, 2012",
   "msg" : "some info message, for the admin",
   "outfile" : "data--recent.txt",
   "outfile_excel" : "data--recent.txt.xlsx",
   "resolution" : "std"
   "to" : "Jul 20, 2012",
   "url_comment" : "another info message, for the screen/user",
   "url_outfile" : "http://www.example.com/path/tmp_cached_files/data--recent.txt",
   "url_outfile_excel" : "http://www.example.com/path/tmp_cached_files/data--recent.txt.xlsx",

}

现在我正在使用这个单行代码来反序列化返回到 perl 代码的 json 结构。请参阅此片段的最后一行：

#!/bin/bash
cmd=$(curl_or_wget_call_to_webservice)
output=$(eval $cmd)
outfile_excel=$(echo "$output"| json_xs -f json -t dumper | tee | perl -n0777 -E 'eval  "%h=%{$_}"; warn $@ if $@; say $h{outfile_excel}')

例如，我不确定为什么我想出 %{$_} 结构。 有更好的方法来做到这一点吗？有没有更短的方法或更安全的方法来编写最后一行？

SE 编辑：如果您愿意，您可以将这篇文章移至 codereview stackexchange 站点，但我在那里没有帐户。

编辑：8 个月后重新访问该帖子后，我想补充一点，这些天我使用这个衬垫来获取我的 github 存储库的名称：

 wget --quiet --auth-no-challenge --user knbknb --password secret  -O -
 https://api.github.com/user/repos |  
 perl  -MJSON -n0777 -E '$r = decode_json($_); map {say $_->{name}} @$r' -

Answer 1

Perl 本身可以解码 JSON，所以接下来应该给出一些想法，使用 LWP::Simple 来获取一些 json 数据。

perl -MLWP::Simple -MJSON \
-e '$ref = decode_json(get("http://your.url/to/webservice")); print $ref->{outfile_excel}'

$ref包含所有JSON数据的perl结构，可以根据需要打印出来..

Answer 2

有jshon。你可以简单地调用类似

curl http://somehere.tld/data.json | jshon -e url_outfile_excel

这将打印给定键的值。

顺便说一句。控制网络服务并不会使输入变得可信。打电话要小心

eval

。