排序问题！

tonghaiyu

实际工作中遇到一个问题。现在简化一下取开头4行说明一下问题，文件共有几千行。
7--28   1       4
10--21  2       0
4--26   1       5
7--25   3       3
我想根据第二列排序，结果输出为
7--25   3       3
10--21  2       0
4--26   1       5
7--28   1       4
第二列从大到小排列，如果第二列相同，就根据第三列从大到小，这个怎么实现？

虽然用excel可以很容易实现，但是我想用perl实现，方便后续处理。哪位高手指点一下？


顺便再问一个实际工作中经常遇到的问题，比如说 $a=my name is tonghaiyu;
现在我想得到$a中的name这个单词，有什么好的办法？

我平时都写的很复杂，
if ($a=~/(name)/)
{
       $b=$1;
}
然后用$b,这样。  有没有什么简便的方法？

[ 本帖最后由 tonghaiyu 于 2009-10-10 20:38 编辑 ]

DQP

sort -k 2 -n file

DQP

如果你一定要用perl....

1. 
   
2. print map {$_->[1]}
   
3.     sort {$a->[0] <=> $b->[0]}
   
4.     map {[(split)[1], $_]} <DATA>;
   
5. 
   
6. __END__
   
7. 7--28   1       4
   
8. 10--21  2       0
   
9. 4--26   1       5
   
10. 7--25   3       3
    
11. 
    

复制代码

DQP

顺便再问一个实际工作中经常遇到的问题，比如说 $a=my name is tonghaiyu;
现在我想得到$a中的name这个单词，有什么好的办法？

我平时都写的很复杂，
if ($a=~/(name)/)
{
       $b=$1;
}
然后用$b,这样。  有没有什么简便的方法？

最好的方法:

$b = 'name';
-_-|||||
谁知道你要什么..

方法2:

1. 
   
2. $foo="my name is tonghaiyu;"
   
3. my ($bar) = $foo =~ m/(name)/;
   
4. 
   

复制代码

tonghaiyu

这个是个好主意，一直以为dos下没有sort命令的！

tonghaiyu

这个技术高了。我这个小菜鸟就不明白了，希望高手解释一下。
这里三个句子，应该是 map {$_->[1]} sort {$a->[0]  $b->[0]}  map {[(split)[1], $_]} ; 这样一整个吧。
也就是说，他要先运行 map {[(split)[1], $_]} 这里{}是map函数的，[]是表示一个表符号？
(split)[1], $_ 这个就不明白了，他要实现的目的，是把第二列和第三列放入数组，但是这个怎么实现的呢？尤其是(split)[1],这个。  

sort 函数是排序和排序方式，但是这个时候后面应该有两个数组啊?

map {$_->[1]}这个也不明白，为什么[1]?

希望高手能够帮忙解释一下，还是非常感谢DQP发表精深写法。

原帖由 DQP 于 2009-10-10 21:10 发表
如果你一定要用perl....

print map {$_->[1]}
    sort {$a->[0]  $b->[0]}
    map {[(split)[1], $_]} ;

__END__
7--28   1       4
10--21  2       0
4--26   1       5
7--25   3       3

lanmeibanban

搜下创建匿名数组的引用就知道了。。。