Perl-字符串与排序2

1. 用sprintf格式化字符串

sprintf函数与printf有相同的参数（可选的文件句柄参数除外），但sprintf函数返回的是结果字符串，而不会直接打印出来

sprintf函数的方便之处在于，可以将格式化后的字符串存放在变量里以便稍后使用

my $date_tag = sprintf"%4d/%02d/%02d %2d:%02d:%02d",$yr, $mo, $da, $h, $m, $s; # 得到类似 2038/01/19 3:00:08的结果

格式化定义中数字字段的前置零表示必要时会在数字前补零以符合指定的宽度要求

2. 用sprintf格式化金额数字

sprintf的常见用法是格式化小数点后具有特定精度的数字

my $money = sprintf "%.2f", 2.49997; # 2.50

下面这个子程序可以用于：手头上有个财务数据非常大，需要使用逗号分隔以方便阅读

sub big_money{my $number = sprintf "%.2f", shift @_;# 下面的循环中，每次匹配到合适的位置加一个逗号1 while $number =~ s/^(-?\d+)(\d\d\d)/$1, $2/; # 这里的1是while循环的主体，实际上是个占位符！# 在正确的位置补上美元符号$number =~ s/^(-?)/$1\$/;$number;
}

3. 高级排序

之前介绍了使用内置的sort操作符，以ASCII码对列表排序，但是之前我们不能按数字大小排序，也不能以不区分大小写的方式排序，还不能按照存储在哈希内的信息排序
perl能以任何需要的顺序来为列表排序
perl可以建立自己的“排序规则子程序（sort-definition subroutine）”，简称“排序子程序（sort subroutine）”，来实现自定义的排序方式
perl其实知道怎么对列表排序，它只是不知道要用什么养的规则，所以排序子程序只是用来说明具体的规则

排序子程序并不需要比较许多元素，只要能比较2个元素就行
排序子程序的定义和普通子程序几乎相同，它会被反复调用，每次都会检查要排序的列表中的两个元素

sub any_sort_sub { # 实际上这么写不能正确工作，这里只是为了方便说明问题my($a, $b) = @_; # 声明两个变量并给它们赋值# 在这里开始比较$a和$b...
}

排序子程序会一次次地被调用，往往会允许上百或上千次，这取决于被配序数据的规模

实际上在排序子程序中并不需要声明$a和$b，因为它们都被自动赋值好了。子程序会返回一个数字，用来表示两个元素间的大小关系（就像C语言中qsort(3)的调用机制，但调用它的是Perl内置的排序机制）
a < b 的话，返回-1
a = b 的话，返回0
a > b 的话，返回1

sub by_number {if ($a < $b){-1} elsif ($a > $b ) {1} else {0}
}

怎么调用这个排序子程序呢？

my @result = sort by_number @some_numbers;

因为常常需要用到三路比较，所以perl提供了一个方便的简写，飞碟操作符 <=>，飞碟操作符会比较两个数字并返回-1，0或1，好让它们按数字排序

sub by_number { $a <=> $b }

因为飞碟操作符只能用来比较数字，所以说有另外一个比较字符串的三路字符串比较操作符 cmp

sub by_code_point {$a cmp $b}
my @strings = sort by_code_point @any_strings;

不过cmp可以用来建立更复杂的排序规则，例如不区分大小写的排序

sub case_insensitive {"\L$a" cmp "\L$b"}

unicode字符串里的字符有事可以用不同形式表示，为了按照实际字符意义排序，我们需要先把某种表示形式转化为统一的形式再进行比较排序

use Unicode::Normalize;
sub equivalents {NFKD($a) cmp NFKD($b)}

需要注意的是，在比较过程中，我们没有修改被比较元素的值，我们只是用它们的值比大小而已
出于性能考虑，$a和$b不是数据拷贝，实际上它们只是原始列表元素的临时化名，所以如果修改了它们的值，实际值也会被修改

my @numbers = sort { $a <=> $b } @some_numbers;
my @descending = reverse sort { $a <=> $b } @some_numbers;

有个小窍门，比较操作符其实并不知道哪个操作数是$a，哪个操作数是$b，比较操作符只知道一个值在左，一个值在右，所以说，如果我们把$a和$b对调，比较操作符每次都会得到相反的结果

my @descending = sort { $b <=> $a } @some_numbers; #这样也可以获得反向排序的结果

4. 按哈希值配序

my %score = ("barney" => 195, "fred" => 205, "dino" => 30);
my @winners = sort by_score keys %score;sub by_score { $score{$b} <=> $score{$a} }

5. 按多个键排序

my %score = {"barney" => 195, "fred" => 205,"dino" => 30, "bamm-bamm" => 195,
};my @winner = sort by_score_and_name keys %score;sub by_score_and_name {$score{$b} <=> $score{$a} # 先按照分数降序排列or$a cmp $b # 分数相同的再按名字的ASCII码序排列
}@winners@patron_IDs = sort {&fines($b) <=> &fines($a) or$items{$b} <=> $items{$a} or $family_name{$a} cmp $family_name{$b} or$personal_name{$a} cmp $family_name{$b} or$a <=> $b
} @patron_IDs;