perl学习(10) 字符串处理函数和排序

1.1.index

Perl 查找子串第一次在大字符串中出现的地方，返回第一个字符的位置。

字符位置是从0 开始编号的。如果子串在字符串的开头处找到，则index 返回0。

如果子串不存在，则返回-1.?

my $stuff = “Howordy world!”;

my $where1 = index($stuff,“wor”); #$where1 得到2

my $where2 = index($stuff,“w”,$where+3); #$where 得到6

my $where3 = index($stuff,$where+); #$where 为-1(没有找到)?

用rindex 函数返回子串最后出现的位置

my $fred = “Yabba dabba doo!”;

my $where1 = rindex($fred,“abba”); #$where1 得到7

my $where2 = rindex($fred,“abba”,$where - 1); #$where2 得到1

my $where3 =rindex($fred,$where2-1); #$whrere3 得到-1?

1.2.substr

substr 截取处理部分的字符串。

它有三个参数：

字符串，一个从0 开始编号的初始位置（类似于index 的返回值），以及子串的长度。

返回值是一个子串

my $mineral = substr(“Fred J. Flintstone”,8,5); #得到“Flint”?

初始位置可以是负的，表示从字符串结尾处开始

my $out = substr (“some very long string”,-3,2); # $out 得到“in”?

substr在perl里特殊的地方，可以做左值

my $string = “Hello,world!”;

substr($string,5) = “Goodbye”; # $string 现在变成了“Goodbye,world!”

赋值的（子）串长度不需要和它替换的子串长度相同。字符串会自动调整到合适的长度?

#最后20个字符替换为barney

substr($string,-20) =~ s/fred/barney/g;

?substr 和index 能完成的大部分工作都可由正则表达式来完成，substr 和index 通常更快，理由：它们从不是大小写无关的，他们没有元字符(metacharacters)需要担心，也不设置内存变量(memory variables)。?

1.3.sprintf

使用sprintf格式化数据

my $data_tag = sprint? “%4d/%02d/%02d %02d:%02d:%02d”,$yr,$mo,$da,$h,$m,$s;?

这个和c是完全一致的。

1.4.高级排序

内嵌函数sort 可以定义一些比较函数，这个和c中过的sort是一样的。

先在没有具体实例，以后用到的时候添加！