src/test/locale/sort-test.pl


1
2
3
4
5
6
7
8
9
10
11

#! /usr/bin/perl
use locale;

open(INFILE, "<$ARGV[0]");
chop(my (@words) = <INFILE>);
close(INFILE);

$" = "\n";
my (@result) = sort @words;

print "@result\n";