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

dongfangho

　　　　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"); #顺序赋值
　　($a,$b)=($b,$a); #交换两个变量
　　如果赋值的个数不匹配，则Perl自动去掉最后多余的那个，把它赋值成undef。
　　6 在数组名前面加@就可以引用整个数组。
　　$a[0]="a1";
　　$a[1]="a2";
　　@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,"\n"; #输出321
　　@test=qw(1,2,3);
　　@test=reverse @test;
　　print @test,"\n"; #输出1，2，3
　　14 sort操作
　　顾名思义这个是排序的操作，根据内部的字符顺序进行排序。
　　15 上下文概念：一个给定的表达式在不同的上下文中其含义是不同得。
　　@test=qw(a,b,c);
　　@test=sort @test; #显示列表值abc
　　$number=42+@test; #显示45
　　16 scalar的使用
　　@test=("a","B","c");
　　@test=sort @test;
　　print scalar @test,"\n"; #显示的是3
　　17 @test=;
　　chomp(@test);
　　print @test,"\n";
　　这个程序，我们需要在输入的时候注意，
　　我们输入完成后回车是不能结束的，
　　必须先回车到一个空白行，在按ctrl+d
　　这里的chomp则使输入的字符链接成一个句子
　　如果没有chomp则按输入的形式输出。
如果是在windows下则输入ctrl+z结束