Perl语言入门笔记 第十四章 字符串与排序

=pod
第十四章	字符串与排序

用index查找子字符串：
my $where = index($big, $small);
eg:my $stuff = "Howdy world";
my $where = index($stuff, "wor"); #$where = 6
index函数还能指定位置开始搜索
my $where2 = index($stuff, "w", $where+1);
查询字符串最后出现的位置用rindex函数

用substr操作子字符串：
substr函数只处理较长字符串中的一小部分内容，大致用法如下：
my $part = substr($string, $initial_position, $lenght);
一个原始字符串，一个从零开始算起的起始位置(类似index的返回值)以及子字符串的长度，找到的子字符串会被返回

用sprintf格式化字符串：
my $date_tag = sprintf "%4d/%02d%02d %02d:%02d:%02d", $yr, $mo, $da, $h, $m, $s;

用sprintf函数格式化金额数字：
my $money = sprintf ".2f", 2.4999; #得到2.50

非十进制数字字符串的转换：
hex，oct

高级排序：
飞船操作符	<=>
sub by_number { if($a > $b){1} elsif($a < $b){ -1 } else { 0 }};
sub by_number { $a <=> $b};
sub by_number { $a cmp $b };
my $result = sort by_number @some_numbers;

五级排序：
@patron_IDs = sort {&fines($b)<=>&fines($a) or
$items{$b}<=>$items{$a} or
$family_name{$a} cmp $family{$b} or
$personal_name{$a} cmp $family{$b or
$a<=>$b
}@patron_IDs;
=cut