Question

作业要求用PERL编程，将核酸序列翻译成氨基酸序列

我将翻译出的序列放到一个.txt文件中，但是打开是乱码的，然后用word和editplus打开有序列，但和dos窗口输出的格式不一样，不知道怎么回事，大神帮帮忙！这是我的代码，ptt文件有要提取核酸序列段位置的数据，fna文件放的是核酸序列
open( READ1,"C:/Users/Administrator/Desktop/bioinformatic homework/NC_000964.ptt")||die "cannot open $!";
$a1=<READ1>;
$a2=<READ1>;
$a3=<READ1>;
@a=<READ1>;
foreach $i (@a){
($b1,$b2)=split(/\s+/,$i,2);
($a1,$a2)=split(/\../,$b1,2);
push@new1,$a1;
push@new2,$a2;
}
$l1=scalar(@new1);
print"$l1\n";
@d=<DATA>;

foreach $i (@d){
($key,$value)=split(/\s+/,$i,2);
@f=split(/,/,$value);

$hash{$key}=[@f];
}
foreach $i (keys %hash){
print"$i:@{$hash{$i}}\n";

}
open( READ2,"C:/Users/Administrator/Desktop/bioinformatic homework/NC_000964.fna")||die "cannot open $!";
open( WRITE,">C:/Users/Administrator/Desktop/1.txt")||die "cannot open $!";
$c1=<READ2>;
@c=<READ2>;
chomp(@c);
$c=join('',@c);
$c=~tr/ATGC/AUGC/;
for($i=0;$i<$l1;$i++){
$s=substr($c,$new1[$i],$new2[$i]-$new1[$i]);
print WRITE "$new1[$i]:$new2[$i] ";
for($j=0;$j<$new2[$i]-$new1[$i]+1;){
$g=substr($s,$j,3);

foreach $i (keys %hash){
foreach $j (0..$#{$hash{$key}}){
if($g eq $hash{$i}[$j]){
print WRITE "$i ";
}
}
}
$j+=3;
}
print WRITE"\n";
}

close READ1;
close READ2;
close WRITE;
__DATA__
A GCU, GCC, GCA, GCG
R CGU, CGC, CGA, CGG, AGA, AGG
N AAU, AAC
D GAU, GAC
C UGU, UGC
Q CAA, CAG
E GAA, GAG
G GGU, GGC, GGA, GGG
H CAU, CAC
I AUU, AUC, AUA
* AUG
L UUA, UUG, CUU, CUC, CUA, CUG
K AAA, AAG
M AUG
F UUU, UUC
P CCU, CCC, CCA, CCG
S UCU, UCC, UCA, UCG, AGU, AGC
T ACU, ACC, ACA, ACG
W UGG
Y UAU, UAC
V GUU, GUC, GUA, GUG
- UAG, UGA, UAA

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏50（财富值+成长值）

Answer 1

什么叫格式不一样，看起来程序没什么问题

不行就加我qq再谈谈吧

追问

这个问题解决了，可不可以问你其他问题呀？扣扣号是多少？

追答

我的百度ID里面有的