perl 字符串处理函数

語法：

傳回子字串 = substr 字串,開始位置,[截取長度]

註：開始位置由 0 計數起，若開始位置之值為負整數，則由字串結尾開始計算截取位置，
比如：-1 表示最後一個字元開始截取，-3 表示倒數第三個字元開始截取。若省略了截取
長度，則表示由開始截取位置一直到字串結束。

例：

$str = "ABCDEFG1234567";

$a = substr $str,5;   # 由第一個字元開始截取 5 個字元長度

print $a;

# 得：ABCDE


$a = substr $str,3,4;   # 由第 4 個字元開始截取 4 個字元長度

print $a;

# 得：DEFG


$a = substr $str,5;   # 第6個字元開始截取至字串結束

print $a;

# 得：FG1234567


$a = substr $str,-1;   # 最後一個字元

print $a;

# 得：7


$a = substr $str,-4,2;   # 最後第四個字元開始截取2個字元長度

print $a;

# 得：45

語法：

$str="我們一起看雲去";
$str_len = length($str);

print $str_len,"/n/n";

語法：

# 轉成大寫
$str = uc(字串);

# 轉成小寫
$str = lc(字串);

$str="abCD99e";
$str = uc($str);   # 此時 $str 為 ABCD99E
$str = lc($str);   # 此時 $str 為 abcd99e

語法：

$pos = index($str1,$str2);

# 找尋 $str2 在 $str1 中的起始位置

語法：

$pos = rindex($str1,$str2,$pos);

# 由 $str1 的 $pos 位置開始找起，找尋 $str2 在 $str1 中最後的起始位置
# 若 $pos 省略，則由字串的最後面開始找。

語法：

$num = ord(字元);


用例：

$num = ord('a');

print "$num/n";

語法：

$char = chr(數字);


用例：

$char = chr(48);
http://linux.tnc.edu.tw/techdoc/perl_intro/x348.HTML

print "$char/n";