作者abliou (Art of Life)
看板perl
标题Re: [问题] 双层比较
时间Fri Feb 9 15:56:47 2007
※ 引述《ultra400 (阿志)》之铭言：
: 假如我有一堆数字如：
: 10.6
: 11.6
: 10.5
: 11.5
: 10.10
: 11.10
: 想要按顺序排成：
: 10.5
: 10.6
: 10.10
: 11.5
: 11.6
: 11.10
: 的话，要如何排呢？
@a=("10.6","11.6","10.5","11.5","10.10","11.10");
@b= sort version @a;
print $_.$/ for @b;
sub version{
($a1,$a2)=$a=~/(\d+).(\d+)/;
($b1,$b2)=$b=~/(\d+).(\d+)/;
$a1<=>$b1 or $a2<=>$b2 ;
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.228.142.148