文本与 JSON 做 JOIN 关联
【问题】
I have a tab-delimited textfile A (representing a BLAST output)
Name1BBBBBBBBBBBB 99.40 166 1 0 1 166 334 499 3e-82 302
Name2DDDDDDDDDDDD 98.80 167 2 0 1 167 346 512 4e-81 298
and a textfile B (representing a phylogenetic dendrogram) looking like
{
"member": {
"Cluster A": "BBBBBBBBBBBB This is Animal A",
},
"name": "Cluster A"
},
{
"member": {
"Cluster B": "DDDDDDDDDDDD This is Animal B"
},
"name": "cluster B"
}
I want to take the string found in the 2nd tab of textfile A (DDDDDDDDDDDD for example) and look it up in text file B. The script should then add the info found in textfile B into a new tab of textfile A :
Name1BBBBBBBBBBBB 99.40 166 1 0 1 166 334 499 3e-82 302 Cluster A This is Animal A
Name2DDDDDDDDDDDD 98.80 167 2 0 1 167 346 512 4e-81 298 Cluster B This is A
【回答】
如果把源数据看做两张表，那你的问题可以用 SQL 中的 join 语句来解决，不过 perl 或 shell 没有直接提供这种功能，自行编写代码很复杂。可以考虑用集算器来简化，SPL 代码如下：
A |
|
1 |
=json(file("json.txt").read()) |
2 |
=A1.new(#1.name:name,#1.(#1):cluster,(firstblank=pos(cluster," "),left(cluster,firstblank-1)):key,right(cluster,len(cluster)-firstblank):value) |
3 |
=file("file.txt").import() |
4 |
=join(A3,_2;A2,key).new(_1._1,_1._2,_1._3,_1._4,_1._5,_1._6,_1._7,_1._8,_2.name,_2.value) |
A1：读取 json 文本
A2：将 A1 中的记录做拆分，生成新的序表
A3：读取 file.txt
A4：对 A2 和 A3 做叉乘，获取最终结果
