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)
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
14 sort *** 作
顾名思义这个是排序的 *** 作,根据内部的字符顺序进行排序。
15 上下文概念:一个给定的表达式在不同的上下文中其含义是不同得。
@test=qw(a,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=<STDIN>; chomp(@test); print @test,"\n"; 这个程序,我们需要在输入的时候注意, 我们输入完成后回车是不能结束的, 必须先回车到一个空白行,在按ctrl+d 这里的chomp则使输入的字符链接成一个句子 如果没有chomp则按输入的形式输出。
如果是在windows下则输入ctrl+z结束 总结以上是内存溢出为你收集整理的征服Perl――基础知识――里程碑M4全部内容,希望文章能够帮你解决征服Perl――基础知识――里程碑M4所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)