请教如何对比两组数据所在的行数。

wyq199161

例：   
文本一内容：
1   A
2   B
3   C
4   D
5   E
文本二内容：
1   D
2   B
3   C
4   E
5   A

已第一个文本排序数组为基准，通过shell指令或脚本得到以下结果：
1  5  A
2  2  B
3  3  C
4  1  D
5  4  E


给小白点思路 先谢过各位大神了！

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub Load{
   
6.         my %hData = ();
   
7.         local @ARGV = pop;
   
8.         while(<>){
   
9.                 my ($v, $k) = split;
   
10.                 $hData{$k} = $v;
    
11.         }
    
12.         \%hData;
    
13. }
    
14. 
    
15. my $rhKeys = Load(pop);
    
16. while(<>){
    
17.         my ($v, $k) = split;
    
18.         my $out = "$v\t";
    
19.         $out .= "$rhKeys->{$k}\t" if(exists $rhKeys->{$k});
    
20.         print($out, $k, "\n");
    
21. }

复制代码

jason680

回复 1# wyq199161

$ awk 'FNR==NR{a[$2]=$1;next}{print $1,a[$2],$2}' F2 F1
1 5 A
2 2 B
3 3 C
4 1 D
5 4 E

wyq199161

回复 3# sunzhiguolu

谢大神 ，得到了想要的结果！不过没学过perl 语言

wyq199161

回复 4# jason680

谢大神，AWK我喜欢 shell脚本三剑客之一

ll104567

root@lp:~/lp# awk 'NR==FNR{a[$2]=$1}NR!=FNR{print $1,a[$2],$2}' file2 file1
1 5 A
2 2 B
3 3 C
4 1 D
5 4 E

hl791708501

1. [root@localhost ~]# cat file1
   
2. 1   A
   
3. 2   B
   
4. 3   C
   
5. 4   D
   
6. 5   E
   
7. [root@localhost ~]# cat file2
   
8. 1   D
   
9. 2   B
   
10. 3   C
    
11. 4   E
    
12. 5   A
    
13. [root@localhost ~]# awk 'NR==FNR{a[$2]=$0;next}{print $1,a[$2]}' file2 file1
    
14. 1 5   A
    
15. 2 2   B
    
16. 3 3   C
    
17. 4 1   D
    
18. 5 4   E

复制代码

思路跟四楼差不多