作者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