Perl字符串处理函数大全实用指南

平时做技术实践时，很多问题不是概念不会，而是细节没串起来。拿“Perl字符串处理函数大全”来说，它看着像小点，放到项目里常会牵出环境、配置、兼容性和维护成本。下面按实际采用顺序，把思路、关键写法和容易踩坑的地方讲清楚，便于大家直接对照操作。

下面请看这里会详细说明.

Perl字符串处理函数

1. index

语法:
position=index(string,substring,position);
语义:
结合项目来看，得到子串substring在字符串string中的位置,如果不存在则得到-1。
实际处理时，参数position是可选项,表示匹配之前跳过的字符数,或者说从该位置开始匹配。

2. rindex
语法:
position=rindex(string,substring,position);
语义:
与index类似，区别是从右端匹配。

3. length
语法:
num=length(string);
语义:
得到字符串长度，或者说含有字符的数目。

4. pos
语法:
offset=pos(string);
语义:
得到最后一次模式匹配的位置。

5.substr
语法:
substr(expr,skipchars,length)
语义:
抽取字符串(或表达式生成的字符串)expr中的子串,
跳过skipchars个字符,或者说从位置skipchars开始抽取子串(第一个字符位置为0),
子串长度为length,此参数可忽略,意味着取剩下的全部字符。
结合项目来看，当此函数出现在等式左边时,expr必须为变量或数组元素,此时其中部分子串被等式右边的值替换。

6.study
语法:
study(scalar);
语义:
用一种内部格式提高变量的访问速度，同一时刻只对一个变量起作用。

7. lc, uc
语法:
retval=lc(string);
retval=uc(string);
语义:
将字符串全部转换成小/大写字母。

8. lcfirst, ucfirst
语法:
retval=lcfirst(string);
retval=ucfirst(string);
语义:
将第一个字母转换成小/大写。

9. quotameta
语法:
newstring=quotemeta(oldstring);
语义:
将非单词的字母前面加上反斜线()。

语句：$string=quotemeta($string);
等效于：$string=~s/(W)/\$1/g;
常用来模式匹配操作中，确保字符串中没有字符被看作匹配操作符。

10. join
语法:
join(joinstr,list);
语义:
理解这一步时，把字符串列表(数组)组合成一个长的字符串，在每两个列表元素间插入串joinstr。

11. sprintf
语法:
sprintf(string,fields);
语义:
与printf类似，区别是结果不输出到文件，而作为得到值赋给变量。

例子$num=26;
$outstr=sprintf("%d=%x hexadecimal or %o octaln",$num,$num,$num);
print($outstr);
结果输出26=1a hexadecimal or 32 octal