参考网页: http://man.ddvip.com/web/perl/perl1.htm #========================================================== #变量前面加$; #8进制以0打头;16进制以0x打头; $value1 = 047; $value2 = 0xFF; #========================================================== #========================================================== #输出方式 print("print number",$value,"/n"); print(“$string”,"/n"); print(“$string$value/n”); #========================================================== #========================================================== #浮点寄存器通常不能精确地存贮浮点数,从而产生误差,在运算和比较中要特别注意。指数的范围通常为-309到+308。 #========================================================== #!/usr/local/bin/perl $value = 9.01e+21 + 0.01 - 9.01e+21; print ("first value is ", $value, "/n");######0 $value = 9.01e+21 - 9.01e+21 + 0.01; print ("second value is ", $value, "/n");#####0.01 #========================================================== #=========================================================== #双引号内的字符串中支持简单变量替换 $number = 11; $text = "This text contains the number $number."; #=========================================================== #=========================================================== 单引号字符串与双引号字符串有两个区别,一是没有变量替换功能,二是反斜线不支持转义字符,而只在包含单引号和反斜线时起作用。单引号另一个特性是可以跨多行,如: $text = 'This is two lines of text '; 与下句等效: $text = "This is two/nlines of text/n"; #=========================================================== #=========================================================== $string = "43"; $number = 28; $result = $string + $number; # $result = 71 若字符串中含有非数字的字符,则从左起至第一个非数字的字符,如: $result = "hello" * 5; # $result = 0 $result = "12a34" +1; # $result = 13 #=========================================================== #=========================================================== +(加)、-(减)、*(乘)、/(除)、**(乘幂)、%(取余)、-(单目负) 操作符<=>结果为: 0 - 两个值相等 1 - 第一个值大 1 - 第二个值大 #=========================================================== 逻辑或:$a || $b 或 $a or $b 逻辑与:$a && $b 或 $a and $b 逻辑非:! $a 或 not $a 逻辑异或:$a xor $b #=========================================================== 位与:& 位或:| 位非:~ 位异或:^ 左移:$x << 1 右移:$x >> 2 注:不要将&用于负整数,因为PERL将会把它们转化为无符号数。 #=========================================================== 联接: . 重复:x 联接且赋值(类似+=): .= 例: $newstring = "potato" . "head"; $newstring = "t" x 5; $a = "be"; $a .= "witched"; # $a is now "bewitched" #=========================================================== #=========================================================== #逗号操作符,注意要加括号 $val = 26; $result = (++$val, $val + 5); # $result = 32 #=========================================================== #=========================================================== #条件操作符 与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; #===========================================================