Perl字符串处理_Perl

当前位置：首页 > 脚本编程 > Perl > 正文

Perl字符串处理: 发布时间：2019-08-21编辑：脚本学堂

Perl处理字符串的功能非常强大，Perl(Practical Extraction and Reporting language)处理格式的功能也非常强大。本文为大家介绍一些Perl的格式和字符串处理的知识。

Perl处理字符串的功能非常强大，Perl(Practical Extraction and Reporting language)处理格式的功能也非常强大。
本文为大家介绍一些Perl的格式和字符串处理的知识。

三个函数：substr、pack、unpack。

1、大小写处理函数 lc(转为小写) uc(转为大写) 。

复制代码代码如下:

$text="zhengwen feng";

$text2=lc $text;

$text3=uc $text;

print "$text2n";

print "$text3n";

2、将第一字母变为小写(lcfirst)，将第一个字母大写(ucfirst)。

复制代码代码如下:

$string="zheng";

$string2=lcfirst $string;

$string3=ucfirst $string;

print "$string2n";

print "$string3n";

3、顺序查找string位置(index)，逆序查找string位置(rindex)。index在字串中找尋某一子字串的起始位置。

复制代码代码如下:

$string="zheng wen feng zheng wen feng";

$position1=index($string,"wen");

$position2=index($string,"wen",10);

$position3=rindex($string,"zheng");

$position4=rindex($string,"zheng",10);

print "$position1,$position2,$position3,$position4n";

复制代码代码如下:

#!/usr/bin/Perl

$str="ABCDEFG1234567";

$a="12";

$pos=index($str,$a);

print$pos,"n";

[hto@localhost]$./tipind.pl
7

4、获取子串函数substr，功能非常强大，可以直接支持以一个字符串代替字符串的一个子串。

复制代码代码如下:

$text="zheng wenfeng 爱 KittyKitty";

$replace_to="爱";

$replace_with="喜欢";

substr($text,index($text,$replace_to),length($replace_to),$replace_with);

print "$textn";

5、字符串中取串长(字符数量)-length

复制代码代码如下:

#!/usr/bin/Perl

$str="abCD99e";

$strlen=length($str);

print$strlen,"n";

[htog@localhost]$./tiplen.pl
7

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

复制代码代码如下:

$decimal=17;

$newdecimal=unpack("B32",pack("N",$decimal));

print "$newdecimaln";

$string="张大华爱中国";

@array1=unpack("c*",$string);

@array2=unpack("C*",$string);

print (join(",",@array1),"n");

print (join(",",@array2),"n");

$string1=pack("c*",@array1);

$string2=pack("C*",@array2);

print "$string1n";

print "$string2n";

9、打印格式-sprintf

复制代码代码如下:

$value=1234.56789;

print sprintf "%.4fn",$value;

10、字符串比较函数 eq、ne、cmp、lt、gt、le、ge，使用cmp就好。绝不能用'==',要用eq，正确的做法是：不论整形Perl字符串，都用eq。

复制代码代码如下:

$string1="大华";
$string2="大华";
if($string1 eq $string2){
print "$sting1==$string2n";
}
if($string1 ne $string2){
print "$string1!=$string2n";
}

if( ($string1 cmp $string2)==0){
print "$string1==$string2n";
}

$string1="zheng";
$string2="Kitty";
if($string1 lt $string2){
print "left < right n";
}

if($string1 gt $string2){
print "left > right n";
}

if($string1 le $string2){
print "left < right n";
}

if($string1 ge $string2){
print "left > right n";
}

11、字符分割操作-split
@数组=split(pattern,串)，将Perl字符串用某模式分成多个单词。

复制代码代码如下:

#!/usr/bin/Perl

$str="ABCDEiFG12i34567";

@array=split(//,$str);按空格分

foreach(@array){

print$_,"n";

}

[hto@localhost]$./tip.pl
ABCDEi
FG12i
345
6
7

@array=split(/+/,$line);当一行中各单词间的空格多于一个时。

空格和TAB混杂情况下的split
[hto@localhost]$vitip.pl

复制代码代码如下:

#!/usr/bin/Perl

$str="ABCDEiFG12i34567";

@array=split(/t/,$str);

foreach(@array){

print$_,"n";

}

[hto@localhost]$./tip.pl
ABCDEiFG12i
34567

只分了两份，为什么？因为同时满足TAB和空格的只有一处，所以必须加[]。
@array=split(/[t]/,$str);现在才是真正的按空格和TAB分

[hto@localhost]$./tip.pl
ABCDEi
FG12i

345
6
7

但还是有缺陷，TAB和空格相连时，TAB被认为是空格划分的子串，或者空格被认为是TAB划分的子串。

$string="张大华爱中国";
@array=split(//,$string);#这种方法无法将其进行分成"张","大","华","爱","中","国"等单字
print (join(",",@array),"n");

12、演示中文字符夹带英文字符的反序(使用了多个函数)

复制代码代码如下:

print "------begin-----n";
$string1="中国love!张大华";
@array=unpack("C*",$string1);
$length=$#array;#此数组的最后一个下标
for(;$length>=0;){
if($array[$length]<=128){
#英文或者标点
push(@array2,$array[$length]);
$length=$length-1;
}
else{
#中文字符
push(@array2,$array[$length-1]);
push(@array2,$array[$length]);
$length=$length-2;
}
}

$string2=pack("C*",@array2);
print "$string2n";
$dir=dir;
print qx/$dir/;
@name=qw/zheng wen feng Kitty Kitty/;
print join(",",@name);

13、字符合并操作-join
用join定义Perl字符串数组格式符号(缺省)必须与qw()合用。
语法：join($string,@array)

复制代码代码如下:

@array=qw(onetwothree);

$total="one，two，three";

@array=qw(onetwothree);

$total=join("：",@array);

$total="one：two：three";

14、匹配数组内元素字串-grep
@array=("one","on","in");
$count=grep(/on/,@array);
查询结果赋值给单变量
@array=("one","on","in");
@result=grep(/on/,@array);
查询结果赋值给数组
2
one
on

15、字符串连接-'.='
关于perl字符串连接的方法讨论。
$line = $line."456";
这个语句中，line要被计算两次。
$line .= "456" ;
运算符','，常用于输出：
print "金",$v1;
print $str,"nn";

'.'运算符和','类似，也是Perl字符串相加但通常只用于print而'.'可以用在任何Perl字符串相加的地方。
print '12345大家來'."helloworld";
結果变成：12345大家來helloworld

16、重复连接运算符号-x
print"OK"x4;
結果变成：
OKOKOKOK
这个计算一次就可以了。Perl字符串的连接可以连接整形和字符形，整形也被当作字符型处理，没有printf里的%d问题。

17、双引号字符串中的转义符
符号    含义
n    换行
r    回车
t    制表符
f    formfeed
b    退格
a    响铃
e    escape(ASCII中的escape字符)
07    任何八进制值(这里是，007=bell(响铃))
x7f    任何十进制值(这里是，007=bell)
cC    一个控制符(这里是，ctrl+c)
    反斜线
"    双引号
l    下个字符小写
L    接着的字符均为小写直到E
u    下个字符大写
U    接着的字符均为大写直到E
Q    在non-word字符前加上，直到E
E    结束L,E和Q

上一篇：用perl实现快速搜索的代码
下一篇：学习Perl数组的应用

与 Perl字符串处理有关的文章

本文标题：Perl字符串处理
本页链接：http://www.jb200.com/article/3246.html

浏览排行

栏目分类

热点文章

1perl连接mysql数据库实例代码

Perl字符串处理