解析兩大Perl標量的操作符
本文和大家重點討論一下Perl標量的操作符，Perl語言有很多值得學習的地方，這里向大家簡單介紹一下Perl標量問題，Perl標量可以分為兩類：一類是數字，另一類是字符串。
Perl標量的操作符
今天來看看Perl標量的操作符，Perl標量可以分為兩類：一類是數字，另一類是字符串。在perl中這兩類數據可以相互轉化，但是操作還是有區別的。
下面先介紹數字類型的操作符：
數字類型的運算操作符有一下幾種：
+(加),-（減）,*（乘）,/（除），－（取反）。
下面講一些難的。
第一個是“%”（取余）。嗯，會C語言的可以退場。這個操作符的使用方法和“/”差不多，但是結果是除之后的余數。例如：
$a=6%5;這時$a的值為1；
$b=5%6;這時$b的值為5。
如果在進行求余運算時不是整數，那么四舍五入后進行運算，不可以對0求余噢！
第二個是冪運算（**）。
$c=2**3;這時$c的值為8。相信我，我寫了一個程序實驗過的，程序如下：
- #!/user/bin/perl-w
- usestrict;{
- my$a=2**3;
- print$a;
- }
還有兩種我們應該知道的運算符是“++”和“--”。“++”在自身基礎上面加一，“--”在自身基礎上減一。這種運算在c里面經常用的。
數字的比較運算符有下面幾個：“<”,“>”,“<=”,“>=”我想這幾個我就不用解釋了。再有一個就是“==”這個運算符用來對比兩個數字是否相等。然后就是“!=”表示兩個數字不等。
還有一個好玩的比較運算符是“<=>”，這個運算符當左邊的數字小于右邊的時返回-1,相等時返回0,當左邊的大于右邊的時返回1。
另外就是位操作符了，和c一摸一樣。
位與：&位或：|位非：~位異或：^左移：$x<<1右移：$x>>2
注：不要將&用于負整數，因為PERL將會把它們轉化為無符號數。
然后要講一講的是賦值操作符，最基本的賦值操作符是“=”，（廢話！）然后一種是“+=”表示在自身基礎上面增加。例如：
$d=3;$d+=3;這時$d就等于6了。
相應的還有“-=”,“*=”,“/=”,“**=”，“^=”,“&=”,“|=”,“~=”。數字的操作符大致就有這些了。
下面是關于字符串的操作符的介紹
兩個字符串相加(連接)用“.”進行。例如：$e="hello"."all";
這時$e的值為“helloall”相應的也就有“.=”運算了。
另外還有一個運算符是x，沒錯，就是它。用來表示……只可意會，不可言傳。
$f="f"x5; 此時$f的值為"fffff"，明白了吧？
字符串的比較用以下的操作符進行：
“lt”意為“小于，lessthan”；
“gt”意為“大于，greaterthan”；
“eq”意為“等于，equal”；
“le”意為“小于等于，lessthanorequal”；
“ge”意為“大于等于，greaterorequal”；
“ne”意為“不等于，notequal”；
“cmp”意為“比較，返回1,0,or-1，compare”。
可以看出來字符串的操作和數字的操作是相對的。
另外對字符串可以進行“++”運算，這時將會把字符串的ascii碼加一。但是"z"++卻是"a"，"Z"++是"A","9"++是0，"ab99"++將會得到"ac00"。呵呵，很好玩吧？字符串是沒有-,*,/等運算的。如果我們對字符串進行這些運算則表示我們要把字符串轉換成數字然后進行計算。如果這個字符串是"111"還好說，如果我們強制perl把例如"aaaaa"一類的字符串進行數字運算，perl會把這些字符串轉換成0。因此"aaa"--將會得到-1。很好玩是不是？呵呵，perl還有很多好玩的東西。
對Perl標量進行操作還可以使用下面的函數。
第一個是length()，這個函數可以返回變量打印出來的長度。例如：
length(23)，將會返回2；
length("hahaha")，將會返回6；
length(1)將返回1。
在perl5中length("你好")，將會返回4，聽說在perl5.6中將不會。我沒有實驗過，不好說什么。
第二個函數是chop()。這個函數將會節掉字符串中的最后一個字符，例如：
$g="aaa";
chop($g);
這時$g中的值是"aa";同時chop會返回它所截下來的字符。試一試$g="你好";chop($g);會發生什么？
第三個函數是chomp()，這個函數僅僅將字符串末尾的換行符裁掉。
第四個函數是substr()這個函數可以從一個字符串中截取一段長度的字符串并將其返回。例如：
$h="helloall";
$i=substr($h,3,5)
將會從“helloall”中截取長度為5的字符串，就是"loal"。試一試這樣呢？
$h="你們好嗎？"；
$i=substr($h,3,5)；
第五個很有用的函數就是defined()，這個函數用來判斷一個數據是否已經定義。在perl中，一個數據如果沒有定義，那么他將會是一個叫做undef的特殊值。 defined()是一個非常有用的函數。至少我經常用。有其是在判斷cgi輸入的時候。
ok,今天就這么多了。兩天就睡了三個小時，明天再繼續吧！
【編輯推薦】
