src/test/locale/sort-test.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#! /usr/bin/perl

# Copyright (c) 2021-2023, PostgreSQL Global Development Group

use strict;
use warnings;
use locale;

open(my $in_fh, '<', $ARGV[0]) || die;
chop(my (@words) = <$in_fh>);
close($in_fh);

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

print "@result\n";