欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

PERL字符串处理

程序员文章站 2022-05-31 10:07:50
...

1. 字符串常用操作

a) 字符串长度:

length("aba")      结果:3

 

b) 查找定位(双向查找):  

index("aba", "a")  结果:0 (找不到返回:-1)

rindex("aba", "a") 结果:2 (索引还是正序的PERL字符串处理
            
    
    博客分类: PERL脚本语言 PERL字符串处理查找分割合并转义字符 

另有,从指定位置开始查找,往后找index("aba", "a", 2) =2,往前找rindex("aba","a", 2) = 2

 

c) 获取子字符串:

substr($str, starti, len); 返回从指定索引开始,长为len的子串;

 

d) 字符串拼接

    点号“.”即可,或是双引号也可。

    $str = "$a$b$c\n"; 或 str = $a.$b.$c."\n";

 

e) 字符串替换(非Replace而是substr)

    substr($s, starti, len, replacement);

    i.e., substr("zhanglianming", 0, 5, "I love ") = "I love lianming"

 

f) 大小写-uc、lc、ucfirst(字符串首字符大写)、lcfirst

 

2. 字符串比较函数eq、ne、lt、gt、le、ge、cmp (cmp就好,不要用操作符<=>)

 

3. 字符串分割-Split

     @数组=split(pattern,串),将字符串用给定模式分成多个单词。

i.e.,

$s = "zhang,lian,ming";
@ss = split(/,/, $s);
print "@ss\n";  输出:zhang lian ming

 

上为列表环境返回多个单词,若是标量环境:$变量 = split(pattern,串),则结果是单词个数。

 

4. 字符串数据合并

        $str  = join(", ", @数组);

        i.e.,

              @array = qw(a b c);

              print join("-", @array);  #a-b-c 

 

5. 字符数组内查找

        @array = qw(a b a);

        列表环境:@res = grep(/a/, @array); #匹配的结果数组,grep功能强大,主要是用来查找具有某种模式的所有元素

        标量环境:$count=grep(/a/,@array);  #匹配个数,这个可以判断数组内是否有此元素,或是 grep() != NULL

 

6. 格式化打印-sprintf

$value=1234.56789;
print sprintf "%.4f\n",$value;

 

7. 重复连接运算符号-x

     print"OK"x4; 结果:OKOKOKOK

 

8. 双引号字符串中的转义符

符号    含义
 \n    换行
 \r    回车
 \t    制表符
 \f    formfeed
 \b    退格
 \a    响铃 PERL字符串处理
            
    
    博客分类: PERL脚本语言 PERL字符串处理查找分割合并转义字符 
 \e    escape(ASCII中的escape字符)
 \007  八进制值(这个是07=bell(响铃))
 \x7f  十进制值(这个是7f)
 \cC    一个控制符(此为ctrl+c)
 \\    反斜线
 \"    双引号
 \l    下个字符小写
 \L    接着的字符均为小写直到\E
 \u    下个字符大写
 \U    接着的字符均为大写直到\E
 \Q    在non-word字符前加上\,直到\E
 \E    \L,\E和\Q的结束符

  

9. pack和unpack函数用于字符串的打包和解包,功能非常强大,支持多种打包格式字符串处理的。

pack 把一串数字或文字..打包成一块memory....得到的可能是文字..或binary内容。例如我们要把字串透过socket传到远方..其实Socket内部就有帮忙把ip做pack的动作..