在学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