又遇难题，恳请帮助

hufeiyc

我们perlers 也不能输给awk阿:wink:

1. 
   
2. #!/usr/bin/perl
   
3. die "Usage: $0 [input]" if ! open my $FILE, "<", shift @ARGV;
   
4. my (%left, @right, @file);
   
5. while (<$FILE>){
   
6.     my @temp = m{[\w\.\-]+}gxms;
   
7.     push @right, pop @temp;
   
8.     push @file, join '/', @temp;
   
9.     %left = (%left, map {$_=>$.} @temp);
   
10. }
    
11. @res = grep {$left{$_}} @right;
    
12. print $file[$left{$_}-1]."\t".$_."\n" for (@res);
    

复制代码

expert1

回复 11# hufeiyc


    囧

trt2008

AWK看着还是蛮简洁的

ontherd

:wink:

ghp268

回复 1# bioinfor

代码很丑陋，不知道符合要求不。主要分了几种情况:
NF=4,类似于STYXL1 / DUSP24 PLEKHA3
NF=3,类似于STYXL1 / DUSP24
NF=2,类似于STYXL1 DUSP24
NF=1,类似于STYXL1
name[]用来记录STYXL1->STYXL1 / DUSP24 这种关系
count[]用来记录STYXL1前面出现的次数

1. #!/usr/bin/gawk
   
2. {
   
3.     if(NF==4) {
   
4.         if(count[$1]) print $1,$2,$3,name[$1];
   
5.         if(count[$2])  print $1,$2,$3,name[$3];
   
6.         if(count[$4]) print $4,name[$4];
   
7.         name[$1]=$1" / "$3;
   
8.         name[$3]=$1" / "$3;
   
9.         name[$4]=$4;
   
10.     }
    
11.     else if(NF==3){
    
12.         if(count[$1]) print $1,$2,$3,name[$1];
    
13.         if(count[$3]) print $1,$2,$3,name[$3];
    
14.         name[$1]=$1" / "$3;
    
15.         name[$3]=$1" / "$3;
    
16.     }
    
17.     else if(NF==2){
    
18.         if(count[$1]) print $1,name[$1];
    
19.         if(count[$2]) print $2,name[$2];
    
20.         name[$1]=$1;
    
21.         name[$2]=$2;
    
22.     }
    
23.     else name[$1]=$1;
    
24. 
    
25.     for(i=1;i<=NF;i++)
    
26.         if($i=="/") continue;
    
27.         else ++count[$i];
    
28. }

复制代码

wenhq

expert1 发表于 2010-10-03 13:12
回复 1# bioinfor

一点都不难，但是比较烦，囧。

求助大拿，我测试这个脚本不通。无报错，
还有为啥要用awk test.awk Book3 Book3 ??
不解，望详解。

BTW, 顺便想了解下高手是如何炼成的？有啥见解？
谢谢。

偶在进阶。

expert1

回复 16# wenhq


    faint,挖坟考古啊。

为啥处理2次，因为楼主要求第一个单元格和第二个单元格相比较，有相同的就打印出来，所以awk第一次处理book记录第一个单元格的内容，然后第二次的时候把数组的内容和第二列相比较。

高手谈不上，所以我也没什么经验。但估计无他唯手熟尔，高手的秘籍吧。

expert1

测试不通？或许楼主换了数据吧。

wenhq

回复 18# expert1

没换数据。。。问题是为啥要Book3 2次。

   

expert1

回复 19# wenhq


    因为大致处理思路是第二列和第二列比较，不知你看明白楼主需求木有呢？ 所以第一次先把第一列存到数组里，第二次处理book3的时候把第二列和存到数据的比较。

只是一个思路而已，突然感觉你没明白NR和FNR的关系？