$string="augcbayumuaa";#$string为那段很长的字符串@array=$string=~/\w{3}/g;print "@array\n"; 输出结果:augcbayumuaa 比如要调用第一个密码子的话,$array[0]。foreach(@array){...}来遍历所有密码子。
楼上做的不错