请教各位大神脚本思路

zero_BX

大家好，文本如下,tab分隔：

1    b    A=200;B=1;ID=BB;
1    b    A=22;B=2;ID=BBB;ORI=200
1    b    A=23;B=3;ID=BBBB;ORI=200
1    a    A=100;B=2;ID=AA
1    a    A=11;B=1;ID=AAA;ORI=100


如果ORI=后数值和A=后数值相等，此行就作为那一行的子类，最终输出：
BB    BBB
BB    BBBB
AA    AAA

现在思路将各行用；分开，读入数组：
while(<IN>){
    chomp;
    my $aa = split/;/,(split/\t/,$_)[2];
    push @array, $aa;
}
接下来请教各位大神有什么好的思路吗？谢谢谢！

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = ();
   
6. while (<DATA>){
   
7.         my ($a, undef, $id, $ori) = /=(\w+)/g;
   
8.         if (!/ORI=/){
   
9.                 @aData = ();
   
10.                 push (@aData, $a, $id);
    
11.                 next;
    
12.         }
    
13.         print "$aData[-1] $id\n" if ($aData[0] == $ori);
    
14. }
    
15. 
    
16. __DATA__
    
17. 1    b    A=200;B=1;ID=BB;
    
18. 1    b    A=22;B=2;ID=BBB;ORI=200
    
19. 1    b    A=23;B=3;ID=BBBB;ORI=200
    
20. 1    a    A=100;B=2;ID=AA
    
21. 1    a    A=11;B=1;ID=AAA;ORI=100
    

复制代码

Okelani

2楼大神的思路

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. my ( $A, $ID );
   
5. while (<DATA>) {
   
6.     my ( $a, undef, $id, $ori ) = /=(\w+)/g;
   
7.     if ( !defined $ori ) {
   
8.         ( $A, $ID ) = ( $a, $id );
   
9.         next;
   
10.     }
    
11.     say "$ID\t$id" if $ori == $A;
    
12. }
    
13. 
    
14. __DATA__
    
15. 1    b    A=200;B=1;ID=BB;
    
16. 1    b    A=22;B=2;ID=BBB;ORI=200
    
17. 1    b    A=23;B=3;ID=BBBB;ORI=200
    
18. 1    a    A=100;B=2;ID=AA
    
19. 1    a    A=11;B=1;ID=AAA;ORI=100
    

复制代码

zero_BX

回复 2# sunzhiguolu

多谢！再请教一个小问题，/=(w+)/g 匹配，如果$id的内容是:  1+1
如何匹配呢

sunzhiguolu

回复 4# zero_BX
1    b    A=200;B=1;ID=BB;
1    b    A=200;B=1;ID=1+;

m/=([^;]+)/g

jason680

回复 1# zero_BX

#! /usr/bin/perl

use strict;
use warnings;

my %hORI;

while(<DATA>{
  chomp;
  my $sLine = $_;
  s/^\s+|\s+$//g;
  next if(m/^(#|$)/);

  # 1    b    A=22;B=2;ID=BBB;ORI=200
  if(! m/\bID=([^;]+)/){
    print "$_\n  *** cannot find 'ID' item\n";
    next;
  }  
  my $sID = $1;
  if(! m/\bA=([^;]+)/){
    print "$_\n  *** cannot find 'A' item\n";
    next;
  }
  my $sA = $1;
  $hORI{$sA} = $sID;

  if(m/\bORI=([^;]+)/){
    my $sORI = $1;
    if(! exists $hORI{$sORI}){
      print "  *** cannot find the $sORI in 'A' item\n";
      next;
    }
    print "$hORI{$sORI} $sID\n";
  }
}
__DATA__
1    b    A=200;B=1;ID=BB;
1    b    A=22;B=2;ID=BBB;ORI=200
1    b    A=23;B=3;ID=BBBB;ORI=200
1    a    A=100;B=2;ID=AA
1    a    A=11;B=1;ID=AAA;ORI=100