【问题】
I have one file that looks like this
>Unc14086 AGAGUUUGAU >Unc35443 GCACGAGAAA
So, every n (n may vary) lines the next line starts with “>”, that is the beginning of a new block of information.
I have another tab-delimited file:
Unc14086 InformationalTextExample Unc35443 InformationalTextExampleII
My goal is to parse the second file with information found in lines starting with “>” in the first file. Whenever a matching pair occurs, i want to write “InformationalTextExample” in that line, possibly separated by “_”:
>Unc14086_InformationalTextExample AGAGUUUGAU >Unc35443_InformationalTextExampleII GCACGAGAAA
How would that be possible?
Thank you!
【回答】
Perl 的解法虽然结构清晰，但脚本还是太长了．这类结构化计算用集算器的循环函数会比较简单，SPL 如下：
| A | |
| 1 | =file("one.txt").read@n() |
| 2 | =file("another.txt").import() |
| 3 | =A1.(if(left(~,1)!=">",~,A2.select@1(mid(A1.~,2)==_1).(">"+_1+"_"+_2))) |
更多关于循环函数的详细用法可参考【SQL 难点解决：循环计算】。