perl自學小練習

[[email protected] perl]# cat rsort.pl     #!/usr/bin/perl     #sorting numbers with an unnamed subroutine     @numbers=<STDIN>;     chomp(@sorted_ns=sort{$a<=>$b}(@numbers));     print "the sorted nu

>>阅读原文<<