在 perl 中，打印 JSON 数据中的最后一项值

Question

我在JSON->new 变量中有如下示例所示的数据，我只需要打印最后一个'ref'，即DEF，大小可能会有所不同，有没有比循环和打印最后一个更简单的方法物品？谢谢。

$VAR1 = {
      'patchSets' => [
                  {
                    'ref' => 'ABC',
                    'id' => '123'
                  },
                  {
                    'ref' => 'PQR',
                    'id' => '456'
                  },
                  {
                    'ref' => 'DEF',
                    'id' => '789'
                  }
                ]
    };

编辑：好吧，代码 sn-p 如下所示打印第一个效果很好的元素，但我需要打印最后一个元素：

my $json = JSON->new;
my $json_text = `ssh -p $port $host gerrit query --format=JSON project:path/to/project --patch-sets $commitId`;

#truncate {"type":"stats","rowCount":1,"runTimeMilliseconds":6}
$json_text = ( split /\n/, $json_text )[0];
my $data = $json->decode($json_text);
#print Dumper $data;
print $data->{patchSets}[0]{ref};

Answer 1

使用-1作为下标

要访问数组的最后一个元素（引用），您应该使用-1 作为下标：

print $data->{patchSets}[-1]{ref};  # DEF

来自perldoc perldata：

数组索引从 0 开始。负下标检索其 从头到尾的价值。

使用$#作为下标

在这种情况下，由于嵌套引用，获取最后一个元素可能不太清楚的另一种方法是使用$# 获取最后一个索引：

print $data->{patchSets}[$#{$data->{patchSets}}]{ref};  # DEF again

使用数组大小​​减一作为下标

您可以通过获取数组的大小并记住从中减去 1 来实现与 $# 相同的效果，但同样，它的可读性不高，而且语法看起来很痛苦：

print $data->{patchSets}[scalar(@{$data->{patchSets}}) - 1]{ref};  # yep... DEF

使用pop()

最后，有一个非常易读的替代方案，附带一个警告。您可以pop 获取最后一个数组元素，但这实际上会修改数组，这可能并不总是您想要的。

my $last = pop(@{$data->{patchSets}});
print $last->{ref};  # still DEF

这是$data 完成后的样子：

$VAR1 = {
          'patchSets' => [
                           {
                             'ref' => 'ABC',
                             'id' => '123'
                           },
                           {
                             'ref' => 'PQR',
                             'id' => '456'
                           }
                         ]
        };