Re: [問題] perl 排序
假設檔案命名為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
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章