\
&trans($strings,$string_len); sub trans() {
for($i=1;$i<=$string_len;$i++) {
print\以第$i个碱基开始翻译得到的蛋白质序列为：\\n\ for($j=1;$j<=$string_len;$j+=3) {
$mimazi=substr($string,$j,3);
print $hash{$mimazi};
} print\
} }
print\氨基酸密码子表如下：\\n\
printf\______ \\n\
printf\ | 第二个字母 | | \\n\
printf\
第
一
字
母
|_____________________________________________| 第三字母| \\n\
printf\ | U | C | A | G | | \\n\
printf\
30
_| \\n\
printf\ | 苯丙氨酸 | 丝氨酸 | 络氨酸 |半胱氨酸 | U | \\n\
printf\ U | 苯丙氨酸 | 丝氨酸 | 络氨酸 |半胱氨酸 | C | \\n\
printf\亮氨酸____|__丝氨酸___|__终止 ___| 色氨酸_|____G____| \\n\ printf\ | 亮氨酸 | 脯氨酸 | 组氨酸 | 精氨酸 | U | \\n\
printf\ T | 亮氨酸 | 脯氨酸 | 组氨酸 | 精氨酸 | C | \\n\
printf\ | 亮氨酸 | 脯氨酸 | 谷氨酸 | 精氨酸 | A | \\n\
printf\亮氨酸____|__脯氨酸___|__谷氨酸___| 精氨酸_|____G____| \\n\
printf\ | 异亮氨酸 | 苏氨酸 |天门冬氨酸 | 丝氨酸 | U | \\n\
printf\ A | 异亮氨酸 | 苏氨酸 |天门冬氨酸 | 丝氨酸 | C | \\n\
printf\ | 异亮氨酸 | 苏氨酸 | 赖氨酸 | 精氨酸 | A | \\n\
printf\异亮氨酸__|__苏氨酸___|__赖氨酸___| 精氨酸_|____G____| \\n\
printf\ | 缬氨酸 | 丙氨酸 |天门冬氨酸 | 甘氨酸 | U | \\n\
printf\ G | 缬氨酸 | 丙氨酸 |天门冬氨酸 | 甘氨酸 | C | \\n\
printf\ | 缬氨酸 | 丙氨酸 | 谷氨酸 | 甘氨酸 | A | \\n\
printf\ 缬氨酸__|__丙氨酸___|__谷氨酸___| 甘氨酸_|____G____| \\n\
31
测试输出结果见图
图4-1：模块优化实现第3答题测试输出
4-2氨基酸密码子参考图 心得体会：
在三题的条件下，发现自己程序还不够完善。最后就在末尾家里一个氨基酸密码子表，这样可以参考每一个符号所对应的碱基。方便我们查询，模块化的涉及中，我觉得自己程序已经很简单，确实不知道怎么在执行模块化，所以就将程序变成了调用子程序的模式。实现模块的程序化和模块化。
32