デンマーク語で照合を表示することを目的とした次のPerlスクリプトがあります。
#!/usr/local/ActivePerl-5.16/bin/perl
use 5.014_001;
use utf8;
use Unicode::Collate;
use strict;
use warnings;
use Carp;
use Data::Dump;
use Encode qw( encode_utf8 );
use Unicode::Collate::Locale;
binmode STDOUT, ':encoding(UTF-8)';
my @words =("AAI Document Type", "Apple", "Zebra");
my $coll = Unicode::Collate::Locale->new(locale => "da");
my @result = $coll->sort(@words);
foreach my $item (@result){
print $item, "\n";
}
出力します
Apple
Zebra
AAI Document Type
「AAIドキュメントタイプ」が最後になるのはなぜですか?この振る舞いを引き起こす「AA」について何かがあるようです。