Re: [問題] perl 排序

看板Perl作者 (Art of Life)時間17年前 (2008/02/07 17:00), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串5/6 (看更多)
假設檔案命名為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
文章代碼(AID): #17giYXge (Perl)
文章代碼(AID): #17giYXge (Perl)