原创
2012-05-15 10:55:30
688 阅读
原创
2012-05-09 15:29:56
2833 阅读
原创
2012-04-26 14:38:53
974 阅读
在学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 (@_)
{
原创
2012-04-25 14:08:47
2219 阅读
原创
2011-12-07 17:12:07
988 阅读