Perl字符串处理与高级排序技巧

# Perl 字符串处理与高级排序技巧 ## 1. 字符串处理 ### 1.1 数字格式化 在处理数字时，有时需要对其进行格式化，比如添加逗号分隔符。但不能简单地使用 `/g` 修饰符进行全局搜索和替换，因为这是从小数点开始反向处理，而非从字符串开头正向处理。同时，代码还会处理可能的负号和美元符号，最终返回格式化好的“货币数字”，可用于年报打印。 ### 1.2 非十进制数字解析 如果字符串表示的是非十进制数字，可以使用 `hex()` 或 `oct()` 函数正确解析这些数字。`oct()` 函数很智能，能通过前缀字符识别十六进制或二进制的正确基数，不过十六进制的有效前缀只有 `0x`。以下是一些示例： ```perl hex('DEADBEEF'); # 3_735_928_559 十进制 hex('OxDEADBEEF'); # 3_735_928_559 十进制 oct('0377'); # 255 十进制 oct('377'); # 255 十进制 oct('0xDEADBEEF'); # 3_735_928_559 十进制，识别到前缀 0x oct('0b1101'); # 13 十进制，识别到前缀 0b oct("0b$bits"); # 将 $bits 从二进制转换 ``` ## 2. 高级排序 ### 2.1 排序子例程基础 Perl 允许按照需求对列表进行排序，这通过定义排序子例程来实现。排序子例程的作用是告诉 Perl 元素之间的比较方式，而不是对多个元素进行排序。它只需比较两个元素，并返回一个编码值来描述元素的比较结果： - 如果 `$a` 应在最终列表中出现在 `$b` 之前，返回 `-1`。 - 如果 `$b` 应在最终列表中出现在 `$a` 之前，返回 `1`。 - 如果 `$a` 和 `$b` 的顺序无关紧要，返回 `0`。 以下是一个简单的排序子例程示例： ```perl sub by_number { # 排序子例程，期望 $a 和 $b if ($a < $b) { -1 } elsif ($a > $b) { 1 } else { 0 } } ``` 使用排序子例程时，将其名称（不带 `&`）放在 `sort` 关键字和要排序的列表之间： ```perl my @result = sort by_number @some_numbers; ``` ### 2.2 简化排序子例程 为了提高效率，Perl 提供了方便的快捷方式。可以使用 `<=>` 运算符进行数字比较，`cmp` 运算符进行字符串比较。以下是简化后的排序子例程： ```perl sub by_number { $a <=> $b } ``` 对于字符串排序，`cmp` 运算符提供了默认的排序顺序。不过，也可以使用它构建更复杂的排序顺序，比如不区分大小写的排序： ```perl sub case_insensitive { "\L$a" cmp "\L$b" } ``` 如果处理的是 Unicode 字符串，为了将等效形式排在一起，需要对分解形式进行排序： ```perl use Unicode::Normalize; sub equivalents { NFKD($a) cmp NFKD($b) } ``` 当排序子例程很简单时，可以将其“内联”，使代码更简洁： ```perl my @numbers = sort { $a <=> $b } @some_numbers; ``` ### 2.3 降序排序 要进行降序数字排序，可以使用 `reverse` 函数： ```perl my @descending = reverse sort { $a <=> $b } @some_numbers; ``` 也可以通过交换 `$a` 和 `$b` 的位置来实现： ```perl my @descending = sort { $b <=> $a } @some_numbers; ``` ### 2.4 按哈希值排序 当需要按哈希值对哈希进行排序时，实际上是对哈希的键进行排序，排序顺序由相应的值决定。例如，有一个记录玩家保龄球得分的哈希，要按得分对玩家进行排序： ```perl my %score = ("ba ```