perl 数组
my @set = (
#input , #output
[ 2,2,3,4,1 ], [ 1,1,1,1,1 ],
[ 1,1,1,1,1 ], [ 0,0,0,0,0 ],
[ 1,1,1,0,0 ], [ 0,0,0,1,1 ]
);


perl 数组,如果我要动态加的话我可以这样吗

my @set;
push(@set,[ 2,2,3,4,1 ]);
push(@set,[ 1,1,1,1,1 ]);
push(@set,[ 1,1,1,1,1 ]);
push(@set,[ 0,0,0,0,0 ]);
push(@set,[1,1,1,0,0]);
push(@set,[0,0,0,1,1]);
或者可以这样吗




[解决办法]
可以，没有问题
祝新年快乐