统计信息

zero_BX

请教匹配提取文本的信息，
文本如下：
然后我想统计有#行绿色部分信息到一个新文件，提取X,Y后的数字和/后的数字，ID用>后的数字加字母X表示
>ENS 5                                                 得到： ID    num    XX    YY
1       13, >A1/X2Y2/13... #                              X5    13      2      2
>ENS 6                                                           X6    11       3      4
1       14, >A4/X3Y4/11... #                              X7    17      1       8                     
2       14, >A4/X1Y2/12...
>ENS 7
1       16, >A5/X1Y8/17... #

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $id;
   
6. while (<DATA>){
   
7.     if (/\A>.*\b(\d+)/){
   
8.         $id = "X$1";
   
9.         next;
   
10.     }
    
11.     if (y/#//d and /\/(\S+)/){
    
12.         my @aData = grep $_, split (/\D+/, $1);
    
13.         print join (" ", $id, @aData[-1, 0, 1]), "\n";
    
14.     }
    
15. }
    
16. 
    
17. __DATA__
    
18. >ENS 5
    
19. 1       13, >A1/X2Y2/13... #
    
20. >ENS 6
    
21. 1       14, >A4/X3Y4/11... #
    
22. 2       14, >A4/X1Y2/12
    
23. >ENS 7
    
24. 1       16, >A5/X1Y8/17... #

复制代码

moperyblue

1. awk 'BEGIN{print "ID num XX YY"}/^>/{s="x"$2;next}/#/{match($3,">.*/X([0-9]+)Y([0-9]+)/([0-9]+)",a);print s,a[3],a[1],a[2]}'|column -t

复制代码

moperyblue

1. sed -r '1{x;s/.*/ID num XX YY/p;x};/^>/{s/.*\s([0-9]+).*/\1x/;h;d};/#/{G;s#.*, >.*/X([0-9]+)Y([0-9]+)/([0-9]+).*\n(.*)#\4 \3 \1 \2#p};d'|column -t

复制代码

jason680

回复 1# zero_BX

$ cat FILE
>ENS 5
1       13, >A1/X2Y2/13... #
>ENS 6
1       14, >A4/X3Y4/11... #
2       14, >A4/X1Y2/12
>ENS 7
1       16, >A5/X1Y8/17... #


$ perl get_id_xy.pl FILE
ID    num    XX    YY
X5    13    2    2
X6    11    3    4
X7    17    1    8


$ cat get_id_xy.pl
use strict;
use warnings;


sub out{
  print join("\t",@_),"\n";
}

my $sId;
out("ID","num","XX","YY");

while (<>){
  # >ENS 5
  if(/^>ENS\s+(\d+)/){
    $sId = "X$1";
    next;
  }
  # 1       13, >A1/X2Y2/13... #
  if(m/#\s*$/){
    if(m|/X(\d+)Y(\d+)/(\d+)|){
      out($sId, $3, $1, $2);
    }
  }
}

sunzhiguolu

回复 5# jason680
借楼主的宝地问下, 大神 对于下面这种格式的文本 如何进行匹配: 提取第二对花括号内字符串, 有啥好的方法, 谢谢大神...

set_rtl_to_gate_name -rtl {ia_subsys/bia/punit_par/grp_punit/punit_mem/punit_context_ebb/genblk1.non_stack_slices[2].rf_dfx_wrapper_context_rf/context_rf_ip.context_rf_8.context_rf_1273_generic_imc_8.punit_1r1w_32x64_imc_wrp/punitth32x64x1w_dft_wrp_inst/DOB_mem[35]} -gate [get_net {ia_subsys/bia/punit_par/grp_punit/punit_mem/punit_context_ebb/genblk1Xnon_stack_slices[2]Xrf_dfx_wrapper_context_rf/context_rf_ipXcontext_rf_8Xcontext_rf_1273_generic_imc_8Xpunit_1r1w_32x64_imc_wrp/punitth32x64x1w_dft_wrp_inst/DOB_mem[35]}]

好像不太理想, 还请您指点...

1. if (/.*\{([^}]+)/){
   
2.     $k=$1;
   
3. }
   

复制代码

sunzhiguolu

这样?

1. m/[^}]+[^{]+\{([^}]+)/

复制代码

jason680

回复 6# sunzhiguolu

>> ...提取第二对花括号内字符串...


本帖(统计信息)不相关，不再回帖

华小飞_Perl

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my $id;
   
7. my @title = qw( ID num XX YY );
   
8. print join "\t", @title, "\n";
   
9. while (<>) {
   
10.         chomp;
    
11.         if (/>ENS\s+(\d)/) {
    
12.                 $id = $1;               
    
13.         } elsif (/\/X(\d)Y(\d)\/(\d+).*?\#/) {
    
14.                 my @ary = ( "X".$id, $3, $1, $2 );
    
15.                 print join "\t", @ary, "\n";
    
16.         } else {
    
17.                 next;
    
18.         }
    
19. }

复制代码

thanatos0

#!/usr/bin/perl
print "ID\tnum\tXX\tYY\n";
my $id;
while(<DATA>){
$id=$1 if />ENS\s+(\d)/;
print "X$id\t$1\t$2\t$3\n" if(/\d\s+(\d+).*>.*X(\d)+Y(\d)+\/(\d)+.*#/);
}
__DATA__
>ENS 5                                                
1       13, >A1/X2Y2/13... #                              
>ENS 6                                                   
1       14, >A4/X3Y4/11... #                                                
2       14, >A4/X1Y2/12...
>ENS 7
1       16, >A5/X1Y8/17... #