当前位置: 首页 > Web后端 > Perl > 正文

perl字符串处理函数

2018-04-23 来源:blog.csdn.net/aldenphy

1,index

position = index (string, substring, position)

返回子串substring在字符串string中的位置,如果不存在则返回-1。参数position是可选项,表示匹配之前跳过的字符数,或者说从该位置开始匹配。

例子如下:

[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a"); print $rev,"\n";'

2

[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a", 1); print $rev,"\n";'

2

[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a", 3); print $rev,"\n";'

6

[root@localhost ~]# echo -n '/var/fap/test/123' | perl -ne '$rev=index($_, "a", 7); print $rev,"\n";'

-1

2,rindex

position = rindex (string, substring, position)

与index类似,区别是从右端匹配。

例子如下:

[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 11); print $rev,"\n";'

2

[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 12); print $rev,"\n";'

12

[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 1); print $rev,"\n";'

-1

[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=rindex($_, "a", 2); print $rev,"\n";'

2

3,length

num = length (string)

返回字符串长度,或者说含有字符的数目。

例子如下:

[root@localhost ~]# echo -n '/var/ftp/tesa/123' | perl -ne '$rev=length($_); print $rev,"\n";'

17

[root@localhost ~]# echo -n '/var/ftp/tesa/123  ' | perl -ne '$rev=length($_); print $rev,"\n";'

19

4,substr

substr (expr, skipchars, length)

抽取字符串(或表达式生成的字符串)expr中的子串,跳过skipchars个字符,或者说从位置skipchars开始抽取子串(第一个字符位置为0),子串长度为length,

此参数可忽略,意味着取剩下的全部字符。

当此函数出现在等式左边时,expr必须为变量或数组元素,此时其中部分子串被等式右边的值替换。

substr() 函数的作用有两个:替换一部分子串。 删除一部分子串。

例子如下:

[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9,);print $rev,"\n";'

test/123

[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9, 4);print $rev,"\n";'

test

替换:

[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9, 4)="hello"; print $rev,"\n";'

hello

删除:

[root@localhost ~]# echo -n '/var/ftp/test/123' | perl -ne '$rev=substr($_, 9, 4)=""; print $rev,"\n";'

5,lc,uc,lcfirst,ucfirst

lc,将字符串改为小写

uc,将字符串改为大写

lcfirst,改变字符串首字母小写

ucfirst,改变字符串首字母大写

例子如下:

[root@localhost ~]# echo -n 'hello, hanli' | perl -ne '$rev=uc($_); print $rev,"\n";'

HELLO, HANLI

[root@localhost ~]# echo -n 'HELLO, hanli' | perl -ne '$rev=lc($_); print $rev,"\n";'

hello, hanli

[root@localhost ~]# echo -n 'hello, Hanli' | perl -ne '$rev=ucfirst($_); print $rev,"\n";'

Hello, Hanli

[root@localhost ~]# echo -n 'hello, Hanli' | perl -ne '$rev=lcfirst($_); print $rev,"\n";'

hello, Hanli

6. Perl字符串处理函数名 pos

调用语法offset=pos(string);

解说返回最后一次模式匹配的位置。

7. Perl字符串处理函数名 quotameta

调用语法newstring=quotemeta(oldstring);

解说将非单词的字母前面加上反斜线(\)。

语句:$string=quotemeta($string);

等效于:$string=~s/(\W)/\\$1/g;

常用于模式匹配操作中,确保字符串中没有字符被看作匹配操作符。

8. Perl字符串处理函数名 join

调用语法join(joinstr,list);

解说把字符串列表(数组)组合成一个长的字符串,在每两个列表元素间插入串joinstr。

9. Perl字符串处理函数名 sprintf

调用语法sprintf(string,fields);

解说与printf类似,区别是结果不输出到文件,而作为返回值赋给变量。

例子$num=26;

$outstr=sprintf("%d=%xhexadecimalor%ooctal\n",$num,$num,$num);

print($outstr);

结果输出26=1ahexadecimalor32octal

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/aldenphy/archive/2009/04/12/4066007.aspx