使用施瓦茨变换（Schwartzian Transform）进行高速排序

首先假设一个需求：

一个文件中有若干合法的身份证号，每行一个。现在需要对这些身份证号进行升序排序，要求综合出生年、月、日进行排序，其中年、月、日重要性依次递减。

司空见惯的低效排序

很可能一个Perl 程序员看到这样的需求，马上就能作出下面的实现：

#!/usr/bin/env perl
package main;
use strict;
use warnings;
use 5.010;

print sort {
  
  my @a = split //, $a;
            my @b = split //, $b;