文本格式转换

mswsg

谢谢大神有时间帮我，这个判断条件看不懂，感觉比python简单？能否进一步解释下？
if ((@aData = split /\n/) and (@aData = $aData[-1] =~ /[A-Z]+/g)回复 9# sunzhiguolu


   

sunzhiguolu

回复 11# mswsg
您老是想问啥, 能否用颜色勾出个重点?

   

sunzhiguolu

与下面这个等价:

1. 
   
2. @aData = split /\n/;
   
3. if (@aData){
   
4.     @aData = $aData[-1] =~ /[A-Z]+/g;
   
5.     print @aData, "\n" if (@aData);
   
6. }
   

复制代码

mswsg

其实，我看不懂perl代码的。。。你得那个判断条件会转成python？回复 13# sunzhiguolu


   

sunzhiguolu

回复 14# mswsg
转换成您那个示例文件:

185 : GCCCCTCCAACGACGCCCTGTCCAG  >>>> Target Intron 1 >>>>  GCACTACGAG : 219
       |||||||||| ||||||||||||||++          67 bp          ++||||  ||||
195 : GCCCCTCCAATGACGCCCTGTCCAGgt.........................agGCACCGCGAG : 296

$aData[0], $aData[1], $aData[-1]
上面的代码就是干了这个事情 => @aData = split /\n/


185 : GCCCCTCCAACGACGCCCTGTCCAG  >>>> Target Intron 1 >>>>  GCACTACGAG : 219
       |||||||||| ||||||||||||||++          67 bp          ++||||  ||||
195 : GCCCCTCCAATGACGCCCTGTCCAGgt.........................agGCACCGCGAG : 296
195 : GCCCCTCCAATGACGCCCTGTCCAGgt.........................agGCACCGCGAG : 296
@aData = $aData[-1] =~ /[A-Z]+/g

@aData 等价于下面的
$aData[0]   => GCCCCTCCAATGACGCCCTGTCCAG
$aData[-1] => GCACCGCGAG

我不会写 python 代码, 希望对您有帮助...

mswsg

对正则表达式不是太熟，借鉴楼上两位re.sub,我自己改写了一个。
最主要的思路：首先记录‘|’所在行的下一行的行号到一个列表a，然后文件指针归零，重新判断，并打印符合行号（列表a）的行

1. import re
   
2. with open('result.exonerate.txt', 'r') as f:
   
3.     a =[]
   
4.     for num, line in enumerate(f):
   
5.         if '|' in line:
   
6.             a.append(num + 1)
   
7.     f.seek(0, 0)
   
8.     for num, line in enumerate(f):
   
9.         if 'Query:' in line:
   
10.             print ">" + line.strip().split()[1],
    
11.         elif 'Target:' in line:
    
12.             print line.strip().split()[1]
    
13.         elif num in a:
    
14.             b = re.sub(r'[^A-Z]','', line[2:-2])
    
15.             print b

复制代码

好像文件指针不用归零，修改代码

1. import re
   
2. with open('result.exonerate.txt', 'r') as f:
   
3.     a =[]
   
4.     for num, line in enumerate(f):
   
5.         if '|' in line:
   
6.             a.append(num + 1)
   
7.         if 'Query:' in line:
   
8.             print ">" + line.strip().split()[1],
   
9.         elif 'Target:' in line:
   
10.             print line.strip().split()[1]
    
11.         elif num in a:
    
12.             b = re.sub(r'[^A-Z]','', line[2:-2])
    
13.             print b

复制代码

mswsg

thank you，原谅wo看到perl一脸懵逼回复 15# sunzhiguolu


   

sunzhiguolu

回复 17# mswsg

原谅wo看到python一脸懵逼

   

sunzhiguolu

其实大家在一起切磋的是解决问题的思路, 与语言无关 与技术无关; 相互借鉴 相互学习...

mswsg

是呀，好思路很重要回复 19# sunzhiguolu