Re: [問題] 尋找最大值

看板Perl作者 (HWOARANG)時間17年前 (2008/01/23 22:54), 編輯推噓4(405)
留言9則, 3人參與, 最新討論串2/2 (看更多)
※ 引述《muchmoa (...)》之銘言: : 我的檔案裡有兩column的數字,例如 : 789 3256 : 856 3587 : 589 2674 : 第一欄是索引,第二欄是數值, : 我想要抽出最大數值的索引值,這個例子中是856 : 因為我有很多這樣的檔案,以excel來處理的話會很久@@" : 請各位幫我指點一下該如何寫這樣一個程式呢? : 謝謝 perl -MIO::All -e 'print [map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [split] } io($ARGV[0])->slurp]->[-1], "\n"' num.txt -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.104.50.227

01/24 11:07, , 1F
謝謝你,我都是用open Perl IDE來撰寫和執行程式,你寫的
01/24 11:07, 1F

01/24 11:08, , 2F
這程式可以直接貼到上面嗎?裡面很多語法我都看不懂,在CP
01/24 11:08, 2F

01/24 11:09, , 3F
AN上也找不到耶,例如 -MIO::ALL -e,還有哪裡可以查詢的
01/24 11:09, 3F

01/24 11:09, , 4F
嗎?或是你願意抽空解釋一下呢?謝謝
01/24 11:09, 4F

01/24 14:40, , 5F
-MIO::All 就相當於 use IO::All;
01/24 14:40, 5F

01/24 21:05, , 6F
查了一下,這是要使用所有module的意思嗎?在這程式裡是必
01/24 21:05, 6F

01/24 21:06, , 7F
要的嗎?謝謝
01/24 21:06, 7F

01/25 17:48, , 8F
如果只是要尋找最大值 直接跑for loop就好
01/25 17:48, 8F

01/25 17:48, , 9F
sort內部本身會做memory copy 整體效能會變差不少
01/25 17:48, 9F
文章代碼(AID): #17brKuTB (Perl)
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):
文章代碼(AID): #17brKuTB (Perl)