perl常用命令.docVIP

perl常用命令 1.操作符 描述 　 lt 小于 　 gt 大于 　 eq 等于 　 le 小于等于 　 ge 大于等于 　 ne 不等于 　 cmp 比较，返回 1, 0, or -1 　 2. 逻辑或：$a || $b 或 $a or $b 逻辑与：$a $b 或 $a and $b 逻辑非：! $a 或 not $a 逻辑异或：$a xor $b 3.表达式 等效表达式 $a = 1; none (basic assignment) $a -= 1; $a = $a - 1; $a *= 2; $a = $a * 2; $a /= 2; $a = $a / 2; $a %= 2; $a = $a % 2; $a **= 2; $a = $a ** 2; $a = 2; $a = $a 2; $a |= 2; $a = $a | 2; $a ^= 2; $a = $a ^ 2; 4.字符串联结和重复操作符 联接: . 重复：x 联接且赋值(类似+=)： .= 例： $newstring = potato . head; $newstring = t x 5; $a = be; $a .= witched; # $a is now bewitched 5.条件操作符 与C中类似，条件?值1:值2，当条件为真时取值1，为假时取值2，如： $result = $var == 0 ? 14 : 7; $result = 43 + ($divisor == 0 ? 0 : $dividend / $divisor); PERL 5中，还可以在赋值式左边使用条件操作符来选择被赋值的变量，如： $condvar == 43 ? $var1 : $var2 = 14; $condvar == 43 ? $var1 = 14 : $var2 = 14; 6.数组--列表的存贮 列表存贮于数组变量中，与简单变量不同，数组变量以字符@打头，如： @array = (1, 2, 3); 7.$var = STDIN; @array = STDIN; # ^D为结束输入的符号 8.数组的输出： (1) @array = (1, 2, 3); print (@array, \n); (2) @array = (1, 2, 3); print (@array\n); 结果为： 1 2 3 scalar()获得数组的元素个数 9.列表/数组的长度 当数组变量出现在预期简单变量出现的地方，则PERL解释器取其长度。 @array = (1, 2, 3); $scalar = @array; # $scalar = 3,即@array的长度 ($scalar) = @array; # $scalar = 1,即@array第一个元素的值 注：以数组的长度为循环次数可如下编程： $count = 1; while ($count = @array) { print (element $count: $array[$count-1]\n); $count++; } 10.子数组 @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) now @array[0..3] = (11, 22, 33, 44); # @array = (11,22,33,44,5) now @array[1,2,3] = @array[3,2,4]; # @array = (11,44,33,5,5) now @array[0..2] = @array[3,4]; # @array = (5,5,,5,5) now 可以用子数组形式来交换元素： @array[1,2] = @array[2,1]; 11.有关数组的库函数 (1)sort--按字符顺序排序 @array = (this, is, a,test); @array2 = sort(@array); # @array2 = (a,is, test, this)