访问perl中json列表中的元素

Question

我有以下对象

TextAction action = new TextAction("")
{
    @Override
    public void actionPerformed(ActionEvent e)
    {
            JTextComponent textField = getFocusedComponent();
            System.out.println( textField.getText() );
    }
};

我必须遍历此对象以获取a，b，c的值。 请有人帮忙吗？

Answer 1

试试这个：

foreach my $arr (@$VAR1) {
    print $arr->{value}->@{ ('a'..'c') };
}

甚至更短：

print map{ $_->{value}->@{ ('a'..'c') } } @{ $VAR1 }[0..$#$VAR1];

输出

defghx