怎么输出两列数中第2列比第1列大的数及相应ID

xunong

如题，
假如有两列数：
ID A B
1 13  12
2 22  45
3 99  26
4 43  97
.....

要选出B比A大的那几行，以及对应的ID号，此题输出应该是：
ID A B
2 22  45
4 43  97
.....

该怎么办呢？求大神帮忙！

jason680

回复 1# xunong

$ perl BgtA.pl
ID A B
2 22  45
4 43  97

$ cat BgtA.pl
use strict;
use warnings;

print scalar <DATA>;
while(<DATA>){
  my($sID, $sA, $sB) = split;
  print $_ if($sB > $sA);
}
__DATA__
ID A B
1 13  12
2 22  45
3 99  26
4 43  97

   

yestreenstars

木有难度~

1. awk 'NR==1;NR>1&&$3>$2'

复制代码

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. print scalar <DATA>;
   
6. map { print if (split)[-1] > (split)[-2] } <DATA>;
   
7. 
   
8. __DATA__
   
9. ID A B
   
10. 1 13  12
    
11. 2 22  45
    
12. 3 99  26
    
13. 4 43  97

复制代码

xunong

回复 3# yestreenstars


    谢谢大神~~泪流满面
    我刚接触代码不久。。。现在发现awk，sed什么的都好强大呀，秒杀好多行perl。。
    请问你有awk和sed的学习资料吗？能加好友吗，我Q916116833

yestreenstars

回复 4# xunong

有啊有啊，请到隔壁论坛（Shell版），我经常活跃的，所以也不用加什么QQ，有问题直接发帖提问就好，那边大婶躲着呢~{:3_193:}
   

xunong

回复 5# yestreenstars


    嗯真心谢谢帮忙~~哈哈