perl教程3-1——经典小骆驼配套讲解.pdf

第三章Perl高级语法 唐玉荣 tangyurong@ 内容 3.1 数组高级技巧 3.2 关联数组高级技巧 3.3 基本函数 3.4 子程序 3.5 文件处理 3.6 文件和目录操作 3.7 模式匹配技巧 3.8 引用 3.9 模块 3.1 数组高级技巧 1、列表 – 列表的灵活表示 • 用于整数 (1..10) (2,5..7,10) (3..3) • 用于字符串 (“aaa”..”aad”) 2 、数组的存取 – 赋值 • 数组对简单变量的赋值 @array = (5, 7, 11); ($var1, $var2) = @array; 结果为: $var1 = 5; $var2 = 7; – 数组间拷贝 @result = @original; @list1 = (2, 3, 4); @list2 = (1, @list1, 5); 结果为: @list2 = (1, 2, 3, 4, 5); 举例: @smallArrayOne = (5..10); @smallArrayTwo = (1..5); @largeArray = (@smallArrayOne, @smallArrayTwo); 结果为: @ largeArray = (5, 6, 7, 8, 9, 10, 1, 2, 3, 4, 5 ); – 子数组 @array = (1, 2, 3, 4, 5); @subarray1 = @array[0, 1]; @subarray2 = @array[0..3]; @array[1, 2] = @array[2, 1]; 结果为: @subarray1 =(1, 2); @subarray2 =(1, 2, 3, 4); @array = (1, 3, 2, 4, 5); @array = (1, 2, 3, 4, 5); @array[0, 1] = (“string”, 46); 结果为: @array = (“string”, 46, 3, 4, 5); – 列表/数组的长度 @array = (1, 2, 3); $scarlar = @array; ($var) = @array; 编程技巧:以数组的长度为循环次数可如下编程: #!/usr/bin/perl @array = (1, 2, 3, 4, 5); $count = 1; while ($count = @array) { print (element $count: $array[$count - 1]\n); $count++; } 注意: 访问不存在的数组元素,则结果为NULL @array = (1, 2, 3); $var = $array[3]; 如果给超出数组大小的元素赋值,则数组自动增长,原来没 有的元素值为NULL @array = (1, 2, 3); $array[4] = 8; 结果: @array = (1, 2, 3, “ ”, 8); 3.2 关联数组高级技巧 1、关联数组定义与访问