perl比较大小
在学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 ;
}
执行得到结果
# perl perl131
90210
2001
666
17
4
4
3.14159
1.5
1.5
0
-10
页:
[1]