Perl - 对象数组

Question

Noob问题在这里.

我确定答案是创建对象,并将它们存储在一个数组中,但我想看看是否有更简单的方法.

在JSON表示法中,我可以创建一个对象数组,如下所示:

[
  { width : 100, height : 50 },
  { width : 90, height : 30 },
  { width : 30, height : 10 }
]

很好,很简单.没有争论.

我知道Perl不是JS,但有没有更简单的方法来复制一个对象数组,然后创建一个新的"类",新的对象,并将它们推入一个数组？

我想这会使这成为可能的是JS提供的对象文字类型表示法.

或者,是否存在另一种存储两个值的方法,如上所述？我想我可以只有两个数组,每个数组都有标量值,但这看起来很难看......但比创建一个单独的类,以及所有那些废话容易得多.如果我正在编写Java或其他东西,那么没问题,但是当我只是编写一个小脚本时,我不想被所有这些困扰.

Answer 1

这是一个开始.@list数组的每个元素都是对带有"width"和"height"键的散列的引用.

#!/usr/bin/perl

use strict;
use warnings;

my @list = (
    { width => 100, height => 50 },
    { width => 90, height => 30 },
    { width => 30, height => 10 }
);

foreach my $elem (@list) {
    print "width=$elem->{width}, height=$elem->{height}\n";
}