首先假设一个需求:
一个文件中有若干合法的身份证号,每行一个。现在需要对这些身份证号进行升序排序,要求综合出生年、月、日进行排序,其中年、月、日重要性依次递减。
司空见惯的低效排序
很可能一个Perl 程序员看到这样的需求,马上就能作出下面的实现:
#!/usr/bin/env perl
package main;
use strict;
use warnings;
use 5.010;
print sort {
my @a = split //, $a;
my @b = split