17 lines
280 B
Perl
Executable File
17 lines
280 B
Perl
Executable File
#! /usr/bin/perl
|
|
|
|
# Copyright (c) 2021-2024, 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";
|