perl 文件句柄 *Perl readline() on closed filehandle FILE 或Can’t open file 问题解决方案 )
perl 读取一个文件,然后把读出来的数据写进另一个文件中去!
本人初学perl, 做基于人工智能的蛋白质结构预测课题,最近遇到一个问题,需要把200个单独的 标准fasta 文件(DSBs_10MHA.fasta) 整合到一个Total.fasta文件中,本以为很容易却一直报错,网上查找解决措施未果,自己最后用数组解决循环迭代。
详细过程如下
1. 输入及输出 ,
输入:DSBs_id_list.txt,200个DSBs_XXXXX.fasta,
输出:Total200.fasta.
2. 报错代码
#!/usr/bin/perl -w
open TOTAL,">>total.fasta" or die " can't creat file";
open ID_LIST,"<DSBs_id_list.txt" or die " can't read file";
foreach my $id (<ID_LIST>