求助一个匹配的问题。问了很多人都没结果。想来这里求点方法。

yanglc2013

如图，我只要输出第三列中含transcript的行，但是，在同一行的后面还有transcript，因为每一行的后面都含有transcript，导致，原封不动的输出的原数据。



希望得到的输出形式是：

kiwivip

/\ttranscript\t/

只是一个红薯

1. while(<DATA>){
   
2.   my(undef,undef,$tr,undef,undef,undef,undef,undef,undef,undef,undef,$en)=split;
   
3.   if($tr=~/transcript/){
   
4.     $en=~m/"(.*)";/;
   
5.     print "$tr"."\t"."$1"."\n";
   
6.   }
   
7. }

复制代码

回复 1# yanglc2013


   

Perlvim

my(undef,undef,$tr,undef,undef,undef,undef,undef,undef,undef,undef,$en)=split;

my $en  = pop(split);

Perlvim

你要把提问的问题用简单的数据模型抽象出来，来寻求一个解决的思路。否则就让别人感觉你在找人替你完成作业而已。这样的帖子，即使非常简单，也很少有人愿意回答。