给你个思路,这只是一种方法而已,方法还有很多.
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";
}
给你个思路,这只是一种方法而已,方法还有很多.
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";
}
最新问答: 有哪些理由能证明:地球的地心深处不可能有高度发达的文明? 1)A、B、C三个物体的密度分别为800千克/立方米、2000千克、立方米、3000千克、立方米,投入足量的水后所受到的 "知者行之始,行者知之成. 加入日本国籍 英语怎么说如题.“加入日本国籍”这句话英语怎么说 某做直线运动的质点位移随时间变化的关系式为x=4t-2x^2,x与t单位分别是m,s. 小朋友到山谷游玩,小朋友对着山谷高喊一声,谷壁回音用了4.6秒.声音在空气中约传播0.34千米.山谷大约宽多少 心情 作文 与明天的太阳相约[壹](8) 作文 每个塑料球和铝球的体积都相同,现在有15个塑料球的总质量和10个铝球的总质量相等(ρ铝=2700千克每立方米 number complete是什么意思 为了增强身体素质,六年级同学决定组织一个晨跑小组,其中男同学占总人数的八分之五,后来又有4名女同学 all the same to me和toniee kick it的空间链接 原电池电解池中不放电的离子也会发生定向移动吗 一种自行车车轮的外直径是50 厘米,如果车轮每分钟转200圈,通过一座长4710米的大桥,要几分钟? 用硫酸铜和熟石灰配置波尔多夜化学方程式 用配方法解几道一元一次方程式,要完整的过程(1) x²+4x=10 (2)x²-6x=11 安全色分别是什么颜色 司马迁在史记中写道:人总是要死的,有的重于泰山,有的轻于鸿毛。从古到今,这两种类型的人要多,属于前者的如 比较x^2+1/x^2+1与1的大小,并指出等号成立条件 抛物线y=-x2-2x+m,若其顶点在x轴上,则m=______.