NS 2.35 柯志亨书-实验5笔记-置信区间

#!/usr/bin/perl

$a=457.802985;
system("awk -v t=$a -f confint95.awk data/zresult-100");

my $a=1.0;
# awk计算方差
print "Start to calc variance...\n";
# 读如平均值文件
open(IN, "data/zresult-ave");
for ($i=100; $i<=100; $i=$i+100)
{
print "    i=$i\n";

$line=<IN>;
@ele=split(/ /, $line);
$a=$ele[1];
print "$a";
# 如果没有上面这句话，会出错，-f not found，应该是$ele[1]是字符串，而t要求是数值，产生错误
# 没找到字符串转浮点数的方法。咳，弱类型语言很迷茫啊！～～～还是好好学习shell吧！！！
#    $a=457.802985;
print "$a";
$f1="data/zresult-$i";
$f2="data/zresult-var";
system("awk -v t=$a -f confint95.awk data/zresult-100");
}
close(IN);