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,“w”, $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, “abba”, $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, 0, 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是一样的。

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