Perl入門

參考網頁：</p><p>http://man.ddvip.com/web/perl/perl1.htm</p><p>#==========================================================<br />#變數前面加$;<br />#8進位以0打頭;16進位以0x打頭;<br />$value1 = 047;<br />$value2 = 0xFF;<br />#==========================================================<br />#==========================================================<br />#輸出方式<br /> print("print number",$value,"/n");<br /> print(“$string”,"/n");<br /> print(“$string$value/n”);<br />#==========================================================</p><p>#==========================================================<br />#浮點寄存器通常不能精確地存貯浮點數，從而產生誤差，在運算和比較中要特別注意。指數的範圍通常為-309到+308。<br />#==========================================================<br /> #!/usr/local/bin/perl<br /> $value = 9.01e+21 + 0.01 - 9.01e+21;<br /> print ("first value is ", $value, "/n");######0<br /> $value = 9.01e+21 - 9.01e+21 + 0.01;<br /> print ("second value is ", $value, "/n");#####0.01<br />#==========================================================</p><p>#===========================================================<br />#雙引號內的字串中支援簡單變數替換<br />$number = 11;<br />$text = "This text contains the number $number.";<br />#===========================================================<br />#===========================================================<br /> 單引號字串與雙引號字串有兩個區別，一是沒有變數替換功能，二是反斜線不支援逸出字元，而只在包含單引號和反斜線時起作用。單引號另一個特性是可以跨多行，如：<br /> $text = 'This is two<br /> lines of text<br /> ';<br /> 與下句等效：<br /> $text = "This is two/nlines of text/n";<br />#===========================================================<br />#===========================================================<br /> $string = "43";<br /> $number = 28;<br /> $result = $string + $number; # $result = 71<br /> 若字串中含有非數位字元，則從左起至第一個非數位字元，如：<br /> $result = "hello" * 5; # $result = 0<br /> $result = "12a34" +1; # $result = 13<br />#===========================================================</p><p>#===========================================================<br />+(加)、-(減)、*(乘)、/(除)、**(乘冪)、%(取餘)、-(單目負)<br />操作符<=>結果為：<br /> 0 - 兩個值相等<br /> 1 - 第一個值大<br /> 1 - 第二個值大<br />#===========================================================<br /> 邏輯或：$a || $b 或 $a or $b<br /> 邏輯與：$a && $b 或 $a and $b<br /> 邏輯非：! $a 或 not $a<br /> 邏輯異或：$a xor $b<br />#===========================================================<br /> 位與：&<br /> 位或：|<br /> 位非：~<br /> 位異或：^<br /> 左移：$x << 1<br /> 右移：$x >> 2<br /> 註：不要將&用於負整數，因為PERL將會把它們轉化為無符號數。<br />#===========================================================<br /> 聯結: .<br /> 重複：x<br /> 聯結且賦值(類似+=)： .=<br />例：<br /> $newstring = "potato" . "head";<br /> $newstring = "t" x 5;<br /> $a = "be";<br /> $a .= "witched"; # $a is now "bewitched"<br />#===========================================================<br />#===========================================================<br />#逗號操作符，注意要加括弧<br /> $val = 26;<br /> $result = (++$val, $val + 5); # $result = 32<br />#===========================================================<br />#===========================================================<br />#條件操作符<br /> 與C中類似，條件?值1:值2，當條件為真時取值1，為假時取值2，如：<br /> $result = $var == 0 ? 14 : 7;<br /> $result = 43 + ($divisor == 0 ? 0 : $dividend / $divisor);<br /> PERL 5中，還可以在賦值式左邊使用條件操作符來選擇被賦值的變數，如：<br /> $condvar == 43 ? $var1 : $var2 = 14;<br /> $condvar == 43 ? $var1 = 14 : $var2 = 14;<br />#===========================================================