perl比较大小

发布时间：2020-12-16 00:25:01 所属栏目：大数据来源：网络整理

导读：在学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 "%8sn",$_;

在学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 "%8sn",$_;
??? print ;
}

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!