blob: 7f0b6edeb771dda8be811a9e0649f5d16fb4f855 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#! /usr/bin/perl
# Copyright (c) 2021-2025, PostgreSQL Global Development Group
use strict;
use warnings FATAL => 'all';
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";
|
