题目

用perl程序解决
序列标准化100定义：  N_i1=¹⁰⁰ⁿ_i1/n_i0       四舍五入取整
      N_i2=¹⁰⁰ⁿ_i2/n_i0      四舍
_{说明  例如第一行序列}     ⁿ_{i1为第一个数（ 第一数13=} ⁿ_i1）       ⁿ_{i2为第二个数（ 第二个数23=}ⁿ_{i2)     最后一个数49=}n_i0
I001       13    TTGTAACAAAC   23    49
I001       16    AAATTTTGTAAAAATTAAC       34    50
I002       11    AACTAATTGTA    21   

提问时间：2021-03-31

答案

给你个思路,这只是一种方法而已,方法还有很多.open F, "F:/h.txt"; #h.txt是你的数据文件@array=;foreach (@array){($s1, $s2, $s3, $s4, $s5)=split(/s+/,$_);$s2=int(100*$s2/$s5);$s4=int(100*$s4/$s5);$s5=int...