Question

用perl程序解决序列标准化100定义： Ni1=100ni1/ni0 &

Answer 1

给你个思路,这只是一种方法而已,方法还有很多.

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(100*$s5/$s5);

print"$s1 $s2 $s3 $s4 $s5n";

}