[d]输出到文件后格式不对,有回车符
本帖最后由 fibbery 于 2012-10-05 18:14:41 编辑 代码如下,
while($Unique_Start=<READ_UNIQUE_REGION>){
chomp($Unique_Start);
my $Unique_end=$Unique_Start+100000;
print "$ID \t $chr \t $Unique_Start \t $Unique_end\n";
my $rd=rd_bam_region($chr,$Unique_Start,$Unique_end);
my $het_homo=het_homo($chr,$Unique_Start,$Unique_end);
print WRITE_FILE "$ID\t$chr\t$Unique_Start\t$Unique_end\t$rd\t$het_homo\n";
}
close(READ_UNIQUE_REGION);