perl实例分析教程之六--

《perl实例分析教程之六--》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、perl实例分析教程之六>>3、列表范围：(1..10)=(1,2,3,4,5,6,7,8,9,10)(2,5..7,11)=(2,5,6,7,11)(3..3)=(3).用于实数(2.1..5.3)=(2.1,3.1,4.1,5.1)(4.5..1.6)=().用于字符串("aaa".."aad")=("aaa","aab","aac","aad")day_of_month=("01".."31").可包含变量或表达式($var1..$var2+5).小技巧：$fred="Fred";print(("Hello,".$fred."!

2、n")x2);其结果为：Hello,Fred!Hello,Fred!4、数组的输出：(1)array=(1,2,3);print(array,"n");结果为：123(2)array=(1,2,3);print("arrayn");结果为：1235、列表/数组的长度当数组变量出现在预期简单变量出现的地方，则PERL解释器取其长度。array=(1,2,3);$scalar=array;#$scalar=3,即array的长度($scalar)=array;#$scalar=1,即array第一个元素的值注：以数组的长度为循环次数可如下

3、编程：$count=1;ent$count:$array[$count-1]n");$count++;}6、子数组array=(1,2,3,4,5);subarray=array[0,1];#subarray=(1,2)subarray2=array[1..3];#subarray2=(2,3,4)array[0,1]=("string",46);#array=("string",46,3,4,5)nowarray[0..3]=(11,22,33,44);#array=(11,22,33,44,5)nowarray[1,2,3]=ar

4、ray[3,2,4];#array=(11,44,33,5,5)nowarray[0..2]=array[3,4];#array=(5,5,"",5,5)now可以用子数组形式来交换元素：array[1,2]=array[2,1];7、有关数组的库函数(1)sort--按字符顺序排序array=("this","is","a","test");array2=sort(array);#array2=("a","is","test","this")array=(70,100,8);array=sort(array);#array=(100

5、,70,8)now(2)reverse--反转数组array2=reverse(array);array2=reversesort(array);(3)chop--数组去尾chop的意义是去掉STDIN（键盘）输入字符串时最后一个字符--换行符。而如果它作用到数组上，则将数组中每一个元素都做如此处理。list=("rabbit","12345","quartz");chop(list);#list=("rabbi","1234","quart")now(4)join/split--连接/拆分join的第一个参数是连接所用的中间字符，其

6、余则为待连接的字符数组。$string=join("","this","is","a","string");#结果为"thisisastring"list=("words","and");$string=join("::",list,"colons");#结果为"words::and::colons"array=split(/::/,$string);#array=("words","and","colons")now>>>>这篇文章来自..，。