perl 语言(数组)
perl 数组是一个储存多个标量的列表。
数组的赋值和读取
Perl 数组的读取是通过 $list[index] 来实现的
如:
#!/usr/bin/perl
@animals = ('cat','fish','dog','ant');
$str = @animals[2];
# dog
print $str."\n";
# dog
print $animals[2];
给数组赋值可以有以下三种方法:
#!/usr/bin/perl
@array1 = qw/12 23 34/;
@array2 = (12,23,34);
@array3[0] = 12;
@array3[1] = 23;
@array3[2] = 34;
# 12 23 34 12 23 34 12 23 34
print "@array1\t@array2\t@array3\n";
# 3 3 3