作者HWOARANG (HWOARANG)
看板Perl
標題Re: [問題] 尋找最大值
時間Wed Jan 23 22:54:47 2008
※ 引述《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
1F：推 muchmoa:謝謝你，我都是用open Perl IDE來撰寫和執行程式，你寫的 01/24 11:07
2F：→ muchmoa:這程式可以直接貼到上面嗎？裡面很多語法我都看不懂，在CP 01/24 11:08
3F：→ muchmoa:AN上也找不到耶，例如 -MIO::ALL -e，還有哪裡可以查詢的 01/24 11:09
4F：→ muchmoa:嗎？或是你願意抽空解釋一下呢？謝謝 01/24 11:09
5F：推 salagadoola:-MIO::All 就相當於 use IO::All; 01/24 14:40
6F：推 muchmoa:查了一下，這是要使用所有module的意思嗎？在這程式裡是必 01/24 21:05
7F：→ muchmoa:要的嗎？謝謝 01/24 21:06
8F：推 LiloHuang:如果只是要尋找最大值 直接跑for loop就好 01/25 17:48
9F：→ LiloHuang:sort內部本身會做memory copy 整體效能會變差不少 01/25 17:48