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",$_;   

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

总结

以上是内存溢出为你收集整理的perl比较大小全部内容，希望文章能够帮你解决perl比较大小所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。