src/test/locale/sort-test.pl

   1 #! /usr/bin/perl
   2
   3 # Copyright (c) 2021-2022, PostgreSQL Global Development Group
   4
   5 use strict;
   6 use warnings;
   7 use locale;
   8
   9 open(my $in_fh, '<', $ARGV[0]) || die;
  10 chop(my (@words) = <$in_fh>);
  11 close($in_fh);
  12
  13 $" = "\n";
  14 my (@result) = sort @words;
  15
  16 print "@result\n";