perl 如何输出数组内容

 
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