linux - 如何使用 Perl 对国会图书馆 (LCC) 编号进行排序？

Question

假设我有这些国会图书馆 (LCC) 编号:

BX2230.3
BX2237
BX2380 .R67 2002 
BX932 .C53 1993

在 Linux 上使用 sort 或 sort -b 忽略空格命令它们如下:

BX2230.3
BX2237
BX2380 .R67 2002 
BX932 .C53 1993

但是，它们应该这样排序:

BX932 .C53 1993
BX2230.3
BX2237
BX2380 .R67 2002 

有没有办法用 sort 或 perl 来做到这一点？ In order words:每行的前两个字符按字母顺序排序，前两个字符后面的数字按数字顺序排序，“.”后面的字母。 (如果存在)按字母顺序排列，后面的数字按数字顺序排列？

Answer 1

有一个模块Library::CallNumber::LC特别是为了这个目的。它有一个 normalize 方法，可将 LCN 转换为可直接排序的内容。它将您的号码列表更改为此

BX22303
BX2237
BX2380 R67  02002
BX0932 C53  01993

所以你可以这样排序你的数字

use strict;
use warnings 'all';

use Library::CallNumber::LC;

my @numbers = (
    'BX2230.3',
    'BX2237',
    'BX2380 .R67 2002',
    'BX932 .C53 1993',
);

print "$_\n" for sort {
    my ($aa, $bb) = map { Library::CallNumber::LC->normalize($_) } ($a, $b);
    $aa cmp $bb;
} @numbers;

输出

BX932 .C53 1993
BX2230.3
BX2237
BX2380 .R67 2002