src/test/locale/sort-test.pl

   1 #! /usr/bin/perl
   2 use locale;
   3
   4 open(INFILE, "<$ARGV[0]");
   5 chop(my(@words) = <INFILE>);
   6 close(INFILE);
   7
   8 $"="\n";
   9 my(@result) = sort @words;
  10
  11 print "@result\n";