Perl语言入门(09 perl中自带的函数)

2016-09-12 19:13:01来源:CSDN作者:haoweilaizoule人点击

由于公司需要,本人最近在学习Perl这种脚本语言,本文是我在学习Perl的过程中总结出来的一些心得和笔记,希望能够帮助也在学习Perl的各位同僚。废话不多说直接上干货!!!

————————————————— 干货分割线 —————————————————

1.index :在另一个标量中搜索单个字符串,从前往后搜索.若没找到目标字符串时返回-1

index string,substring

index string,substring,start_position

i n d e x函数从s t r i n g的左边开始运行,并搜索s u b s t r i n g。i n d e x返回找到s u b s t r i n g时所在的位置,o是指最左边的字符。如果没有找到s u b s t r i n g,i n d e x便返回- 1。

Exp:

index “Ring around the rosy”,”around”;  #返回5index (“Pocket full of posies”,”ket”); #返回3$a = “Ashes,ashes,we all fall down”;index($a,”she”);	#返回1index $a,”they”;	#返回 -1  (没找到)@a = qw(oats   peas  beans);index join(“”,@a),”peas”;	#返回5

Index函数可以添加开始索引:

index($String,$subString,start);

$reindeer = “dasher dancer prancer vixen”;

Index($reindeer ,”da”); #返回0

Index($reindeer ,”da”,1); #从第一个位置开始搜索,返回7

Exp:

my $source = "One fish,two fish,red fish,blue fish";my $start = -1;while(($start = index($source,"fish",$start)) != -1){<span style="white-space:pre">	</span>print "Found a fish at $start/n";<span style="white-space:pre">	</span>$start++;}

输出:Found a fish at 4

  Found a fish at 13

 Found a fish at 22

  Found a fish at 32

 

2.rindex :在另一个标量中搜索单个字符串,从后往前搜索,若没找到目标字符串时返回-1

rindex string,substring

rindex string,substring,start_position

Exp:

$s = “she loves you yeah,yeah,yeash”;rindex($a,”yeah”);	#返回26. 从后往前搜索,查找能第一个匹配的字符串rindex($a,”yeah”,25);	#返回20,从第25个开始往前搜索$source = “One fish,two fish,red fish,blue fish.”;$start = length($source);while(($start = rindex($source,”fish”,$start)) != -1){<span style="white-space:pre">	</span>print “Found a fish at $start/n”;<span style="white-space:pre">	</span>$start--;}

3.Substr函数:s u b s t r函数取出s t r i n g,从位置o ff s e t开始运行,并返回从o ff s e t到结尾的字符串的剩余部分。如果设定了l e n g t h,那么取出l e n g t h指明的字符,或者直到找出字符串的结尾.

Substr string,offset

Substr string,offset,length

Exp:

$a = “I do not like green eggs and ham.”;

Print substr($a,25); #输出”and ham.”

Print substr($a,14,5); #输出”green”;

如果o ff s e t设定为负值 s u b s t r函数将从右边开始计数。例如, s u b s t r($ a , - 5)返回$ a的最后5个字符;如果l e n g t h设定为负值则s u b s t r返回从它的起点到字符串结尾的值,但不包含最后l e n g t h个字符,如下例所示:

Print substr($a,5,-10);   #prints “not like green egg”;从第5个开始,返回字符串的剩余部分,但不包含最后1 0个字符.

 

当substr函数用在左边时, s u b s t r用于指明标量中的什么字符将被替换。当用在赋值表达式的左边时, s u b s t r的第一个参数必须是个可以赋值的值,如标量变量,而不应该是个字符串直接量。

Exp:

#将第一个字符串用Romans,C替换,

$a = “countrymen.lend me your wallets”;

Substr($a,0,1) = “Romans,C”; #输出:Romans,Countrymen.lend me your wallets


#在字符串开头插入Friends,

Substr($a,0,0) = “Friends, ”;


#以ears.替换最后7个字符

Substr($a,-7,7) = “ears.”; #输出:countrymen.lend me your ears.

 

4.转换函数tr/searchlist/replacementlist/(也可写成y///):t r / / /用于搜索一个字符串,找出s e a r c h l i s t中的各个元素,并用r e p l a c e m e n t l i s t中的对应元素对它们进行替换。

Tr/ABC/XYZ/; #在$_中,用X替换所有的A,用Y替换所有的B...

$r =~ tr/ABC/XYZ/; #在$r中,用X替换所有的A,用Y替换所有的B..

tr/A-Z/a-z/; #将大写字母转换成小写字母

tr/A-Za-z/a-zA-Z/; #大写转小写,小写转大写

 

5.Printf函数:

Printf formatstring,list

Printf filehandle formatstring,list

f o r m a t s t r i n g是一个描述输出格式的字符串,l i s t是一个你想让p r i n t f显示的值的列表,它类似p r i n t语句中的l i s t。p r i n t f将它的输出显示给S T D O U T文件句柄,请注意,f i l e h a n d l e名与f o r m a t s t r i n g之间不使用逗号。通常情况下f o r m a t s t r i n g是个字符串直接量,它也可以是一个用来描述输出格式的标量.

 

Exp:

printf("%20s","jack"); #前面空20个字符printf("%-20s","Jill");	#后面空20个字符my $amt = 7.127;printf("%6.2f",$amt);	#共6位数(算.),.后面保留两位并四舍五入printf("%c",65);	#输出字符A$amt = 9.4;printf("%6.2f",$amt);	#输出:9.40printf("%6d",$amt); #输出:_,_,_,_,_9;  共6位输出整数printf("%06.2f",$amt);   #输出前导0

s p r i n t f函数与p r i n t f几乎相同,不过它不是输出值,而是输出s p r i n t f返回的格式化输出,可以将它赋予一个标量,或者用于另一个表达式,

Exp:

$weight = 85;

$moonweight = sprintf(“%.2f”,$weight*.17);

print “You weigh $moonweight on the moon.”;

带有% f格式说明符的p r i n t f和s p r i n t f函数能够将计算结果圆整为你指定的小数点位数。

Exp:

#!/usr/bin/perl  use strict;  use warnings; my @employees = (<span style="white-space:pre">		</span>'jinping,Xi,123101,9.35,40',<span style="white-space:pre">		</span>'shimin,Li,139102,12,32,35',<span style="white-space:pre">		</span>'bodang,Wang,122311,8.88,46',<span style="white-space:pre">		</span>'shimao,Zhu,132232,12.12,50',<span style="white-space:pre">		</span>'peisi,Chen,123231,12.00,50'); sub print_emp{<span style="white-space:pre">	</span>my ($last,$first,$emp,$hourly,$time) = split(',',$_[0]);<span style="white-space:pre">	</span>my $fullname;<span style="white-space:pre">	</span>$fullname = sprintf("%s %s",$first,$last);<span style="white-space:pre">	</span>printf("%6d %-20s %6.2f %3d %7.2f/n",<span style="white-space:pre">	</span>$emp,$fullname,$hourly,$time,<span style="white-space:pre">	</span>($hourly*$time)+.005);} @employees = sort{<span style="white-space:pre">	</span>my ($L1,$F1) = split(',',$a);	#a为源字符串,l1,f1为字符串前两个<span style="white-space:pre">	</span>my ($L2,$F2) = split(',',$b);<span style="white-space:pre">	</span>return($L1 cmp $L2 || $F1 cmp $F2);  #比较姓氏,若姓氏相同比较名称} @employees; foreach(@employees){print_emp($_);}

6.堆栈的相关函数:

S h i f t函数用于将元素添加到堆栈的底部,u n s h i f t用于从底部取出元素.

Pop target_array

Shift target_array

Unshift target_array,new_list

Push target_array,new_list

p o p与s h i f t函数分别从t a rg e t a r r a y中删除一个元素。如果t a rg e t a r r a y没有设定,那么元素可以从@ 中删除,也可以从@ A R G V中删除。p o p和s h i f t函数返回被删除的元素,如果数组是空的,则返回u n d e f。数组的大小将相应地缩小。

PS:在子例程中,如果没有设定其他数组,那么p o p、s h i f t、u n s h i f t和p u s h函数将修改@ 。在子例程外面,你的程序主体中,如果没有设定其他数组,那么这些函数将修改数组@ A R G V。

Pop:将数组的最后一个元素取出并返回

@array=5..9; 
$fred=pop(@array);      #$fred 得到 9,@array 现在为(5,6,7,8) 
$barney=pop@array;    #$barneygets8,@array 现在为(5,6,7)
pop@array;            #@array 现在为(5,6)(7 被丢弃了)

pop 相反的操作是 push,它可以将一个元素(或者一列元素)加在数组的末尾:

push(@array,0);    #@array 现在为(5,6,0) 
push@array,8;    #@array 现在为(5,6,0,8) 
push@array,1..10;   #@array 现在多了 10 个元素        
@others=qw/9    0    2    1    0/; 
push@array,@others;      #@array 现在又多了 5 个元素(共有 19 个)
push 的第一个参数或者 pop 的唯一参数必须是数组变量。

 

7.Splice函数:s p l i c e函数用于删除数组中从o ff s e t位置开始的元素,同时返回被删除的数组元素。如果o ff s e t的值是负值,则从数组的结尾处开始计数。如果设定了l e n g t h,那么只删除l e n g t h指定的元素。如果设定了l i s t,则删除l e n g t h指定的元素,并用l i s t的元素取代之。通过这个处理过程,数组就会根据需要扩大或缩小.

Splice array,offset

Splice array,offset,length

Splice array,offset,length,list

Exp:

my @band = qw(trombone ukulele);

splice(@band,0,1);   #ukulele

splice(@band,0,0,qw(peas));  #peas ukulele

splice(@band,-1,1,qw(barley turnip));  #peas barley turnip

splice(@band,1,1); #peas turnip

print @band;  


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台