在学perl 或者说记录吧 比较数字大小

#! /usr/bin/perl -w
use strict;
#读入一串数字，将它们按照数字排序，将结果按右对齐的列打印出来
@_=(17,000,04,1.50,3.14159,-10,1.5,4,2001,90210,666);
@_=sort {$a<=>$b}@_;
for (@_)
{
    $_=sprintf "%8s\n",$_;
    print ;
}

执行得到结果
[root@nagios perl]# perl perl131
   90210
    2001
     666
      17
       4
       4
 3.14159
     1.5
     1.5
       0
     -10