perl 字符串删除末尾几个字符_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 octal\n",$num,$num,$num);

print($outstr);

结果输出26=1a hexadecimal or 32 octal

原文链接:

http://developer.51cto.com/art/201007/211626.htm