my @products = JProduct->get_products_by_pids(@pids);
foreach my $product (@products){
die $product -> list_price;
}
上面就是perl 输出数组的写法, 在这里数组中的每一项都是一个对象,
@array = (5,'apple',$x,3.1415926);
print "@array";#数组中的内容
$count = @array;
print "\n".$count;#数组的个数
print "\n".$#array;#数组的最大索引
输出:
5 apple 3.1415926
4
3