征服Perl――基础知识――里程碑M4

1 在Perl中，数组的概念和其他语言差不多，有编程基础的人很快就能理解，这里注意的是数组可以放置不同类型的东西在里面。

同时，数组不限制长度，Perl会自动增加的，没有定义的就默认为undef。

2 在数组中，可能要使用最后一个元素，我们一般这样来实现：

$a[0]="a1";

$a[1]="a2";

$a[2]="a3";

print $a[$#a],"n"; #其中$#a是表示最后一个元素所在的下标。

3 列表

（1 .. 5）#显示12345

(1.5 .. 1.7) #显示12345，对于小数直接舍掉小数点后的。

(5 .. 1) #空列表，左值大于右值就为空。

4 在Perl中经常会用到字符串的列表，我们可以使用qw来省去写双引号的麻烦。在Perl中的应用是非常的灵活的，几乎没有什么限制，这样的话既简单但有复杂，呵呵。（处理Unix中的文件名）

5 列表赋值

($a,$b,$c)=("a","b","c"); #顺序赋值

如果赋值的个数不匹配，则Perl自动去掉最后多余的那个，把它赋值成undef。

6 在数组名前面加@就可以引用整个数组。

@a #就会显示a1a2?

@b=@a #可以把一个数组中得只copy到另一个数组中。

7 pop和push操作
在Perl中，经常会用到这两个操作。
pop是取出数组中最后一个元素并返回，那么数组中就没有了这个元素。
如果pop用于一个空数组，则返回undef
push将一个元素添加到数组的末尾
push(@a,11);

8 shitf和unshift对一个数组的开头进行操作。

9 将数组插入字符串
@test="like";
print "i @test you","n";
10 注意/的应用。逃逸字符。

11 foreach控制语句

@test=qw(a,b,c);

foreach $test(@test)

?????print $test."n";

12 Perl最常用的默认变量$_
13 reverse逆转，逆转后需要赋值给一个变量，如果不赋值那就没有意思了。
@test=(1,2,3);
@test=reverse @test;
print @test,"n"; #输出321

@test=("1","2","3");
@test=reverse @test;
print @test,50); margin-top: 0px; margin-right: 0px; margin-bottom: 5px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; border-top-width: 0px; border-right-width: 0px; border-bottom-width: 0px; border-left-width: 0px; border-style: initial; border-color: initial; list-style-type: none; list-style-position: initial; list-style-image: initial; word-wrap: normal; word-break: normal; line-height: 21px; ">@test=qw(1,"n"; #输出1，2，3