perl 语言（数组）_perl 数组

perl 语言（数组）

perl 数组是一个储存多个标量的列表。

数组的赋值和读取

Perl 数组的读取是通过 $list[index] 来实现的

如：

#!/usr/bin/perl
@animals = ('cat','fish','dog','ant');
$str = @animals[2];
# dog
print $str."\n";
# dog
print $animals[2];
1
2
3
4
5
6
7

给数组赋值可以有以下三种方法：

#!/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
1
2
3
4
5
6
7
8
9