对多文本做关联替换

【问题】

have a file with annotations in the following format:

XS-5236245.2_hypothetical_protein

and a tab delimited blast report with only the accession id in the second column:

transcript1 XS-5236245.2 94.3 35 0 245 356 789 896 1e-230 6.3

I want to replace the accession_id from the blast report with the whole line from the annotations file when there is a match. This is my attempt and as you can see I use very basic python. If you give me a more complex solution I would appreciate some explanation. Thank you for your help.

Linu

#!/usr/bin/python``#import sys

#input1 = sys.argv[1] --> file with annoations``#input2 = sys.argv[2] --> file with blast report``#output = sys.argv[3] --> modified blast report with annotations

f1 = open(sys.argv[1],"r")``f2 = open(sys.argv[2],"r")``f3 = open(sys.argv[3],"w")

#open and read line by line:
for line in f1:
 # break line by '_'
splitline = line.split("_")
# define search_id as the first element of the line
searchid = splitline[0]
# open blast report and read line by line
 for row in f2:
# split columns by tab separator
col = row.split("\t")
# define target_id as the content of the second column
targetid = col[1]
# when target_id matches search_id replace content with the whole line
 if searchid == targetid:
f3.write(targetid.replace(searchid, splitline))
 else:
 pass
f1.close()
f2.close()
f3.close()

【回答】

perl 对结构化计算支持有限,代码也比较难写。完成这类需求用 SPL 更方便:



A

1

=file("annotations.txt").import().derive(left(_1,pos(_1,"_")-1):key)

2

=file("blastreport.txt").import()

3

>A2.switch(_2,A1:key)

4

=A2.new(_1,_2._1,_3,_4,_5,_6,_7,_8,_9,_10,_11)