perl访问数组中变量

数组一个是存储标量值的无序列表变量。

数组变量以 @ 开头。访问数组元素使用 $ + 变量名称 + [索引值] 格式来读取，实例如下：

#!/usr/bin/perl

@names = ("google", "runoob", "taobao");

print "\$names[0] = $names[0]\n"; #$names[0] = google

用变量接收数组及访问：

my $list = get_list();
/*
　　$VAR1 = [
　　　　{
　　　　　　online => 1,
          name => 'test1',
　　　　},
　　　　{
　　　　　　online => 2,
          name => 'test2', 
　　　　},
　　]
*/
for ( my $i = 0 ; $i < ( scalar @$list ) ; $i++ ) {
　　my $online = $list->[$i]->{ online };
   #do something...;
}