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是一样的。
先在没有具体实例，以后用到的时候添加！