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