Question

用perl语言，把一个文件中的部分内容由另一个文件替换

比如，我有一个基因组序列文件1.fasta,格式如下
>EVM0001349.1 gene=EVM0001349
TTTTTTTT
>EVM0001333.1 gene=EVM0001333
AAAAAAA

还有另一个文件2.fasta
>EVM0001349.1-cytochrome P450 CYP82D71 [Salvia miltiorrhiza]
>EVM0001333.1-cytochrome P450 CYP82D71 [Salvia miltiorrhiza]

我想用文件2中的内容替换文件1中的基因ID“>EVM0001349.1 gene=EVM0001349”
请问如何用Perl语言实现

Answer 1

这类程序的一般套路：先打开文件1，获得需要的内容到变量里面，关闭文件1，再打开文件2，获取内容到内存变量中，进行替换，关闭文件2后重新以写方式打开，然后把内存变量写入文件2。