[root@mysql1 perl]# cat 8.pl
#!/usr/bin/env perl
chomp(@lines=<STDIN>);
@sorted=sort @lines;
print "@sorted\n";
[root@mysql1 perl]#
[root@mysql1 perl]#
[root@mysql1 perl]# ./8.pl
c
a
b
a b c
#!/usr/bin/env perl
chomp(@lines=<STDIN>);
@sorted=sort @lines;
print "@sorted\n";
[root@mysql1 perl]#
[root@mysql1 perl]#
[root@mysql1 perl]# ./8.pl
c
a
b
a b c