Re: [問題] perl 排序

[abliou (Art of Life)]

假設檔案命名為aa.txt

open f,"<aa.txt";
$_=~/(.*)(?{push @a,$^N}) (.*)(?{push @b,$^N;$max=$^N if $max<$^N})/
while(<f>);
close f ;
print "$a[$n++] $_ ".((int($_*100))/100).$/ for (sort{$b<=>$a} @b) ;

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 122.123.198.118