sort-test.pl

来自「关系型数据库 Postgresql 6.5.2」· PL 代码 · 共 13 行

#!/usr/local/bin/perl -w
use locale;

open(INFILE, "<$ARGV[0]");
chop(my(@words) = <INFILE>);
close(INFILE);

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

print "@result\n";