Perlを使用してロケールに基づいてソート

問題はですlocal $/ = undef。perlファイル全体を配列として読み込みます。@ARGVつまり、ファイルには要素が1つしか含まれていないため、sort並べ替えることはできません。出力は開始データと同じでなければなりません（次も使用しますUbuntu 12.04 LTS, perl version 5.14.2。

$ perl -le 'local $/ = undef;print ++$i for <>' < cat
1

$ perl -le 'print ++$i for <>' < cat
1
2
3
4
5
6
7
8
9

削除すると、local $/ = undefPerlはsortシェルと同じ出力を生成しますsort with LC_ALL=C。

$ perl -e 'print sort <>' < data
Uber
peach
péché
pêche
sin
war
wird
wär
Über

ノート

そうでない場合、use locale現在のperlロケールは無視されます。 Perl比較演算子が("lt", "le", "cmp", "ge", and "gt")使用されLC_COLLATE（LC_ALL存在しない場合）、デフォルトで使用されるため、sort影響を受けます。cmp

現在LC_COLLATEの値を取得できます。

$ perl -MPOSIX=setlocale -le 'print setlocale(LC_COLLATE)'
en_US.UTF-8

ファイルを配列として読み取る正しい方法は次のとおりです。

$ perl -e 'print sort <>;' < data

設定レコード区切り記号の入力undef はファイル全体をスカラーに入れます。その後、単一値の配列をソートすることはあまり意味がありません。

アレイモードでは、すでにファイル全体を一度に読み取ることができます。そうすれば、ソートは意味があります。

$ perl -e 'use locale; print sort <>;' < data
peach
péché
pêche
sin
Uber
Über
war
wär
wird

ここにENVIRONMENTありますLANG=en_US.UTF-8。このuse locale;ステートメントがない場合は、デフォルトのLC_ALL=Cソートスキームを使用します。

もっと知りたい場合：

• Perlを使った伝統的なフルルックサウンド
• Perl「ロケールの使用」と環境