Perl語言學習筆記 14 字串與排序

標籤：perl

1、字串內用index搜尋

$where = index($words,$word);##從words裡找到首次出現word的位置，下標從0開始，尋找失敗則返回-1；

指定開始搜尋的地方：$where = index($words,$word,10);##從10開始往後尋找，包含10

搜尋子串最後出現的位置：

限定返回的最大位置：$where = rindex($words,$word,10);##只搜尋下標為10以前的字元。

2、處理子串

substr參數：依次為：字串、起始下標、要截取的長度（超出實際長度會以實際長度為準）

省略第三個參數會一直取到字串結尾：

字串的起始位置可以為負值，表示從字串結尾開始倒數：

substr可以和index聯合使用，比Regex效率高：

假如字串是一個變數，可以修改字串被選取的部分，子串的長度不需要與被替代的字串長度相同：

用綁定操作符對字串的某一部分進行操作：

另外一種替換方式，返回值為替換前的子串：

3、用sprintf格式化資料

與printf效果相同，但是返回處理好的字串，而不列印：

處理財務資料例子：

第二行主要在執行條件運算式，而迴圈主體只是一個佔位作用，可以替換為：

4、進階排序

首先，建立自己的排序子程式：

然後，調用：

飛碟操作符（<=>）比較兩個數字並返回0、1、-1：

cmp操作符，比較字串大小：

內嵌子程式：

遞減順序排列：

5、雜湊按值排序：

按多值排序：