读取每一行然后取出资料
像版友说的多存一份前一次的那一笔资料
执行结果: 28.43, -35.201, 27.64, -38.872
然后你可以在第 9 行取出资料做插补
1 #!/usr/bin/perl
2
3 # ./test.pl < file_name
4
5 while (<>) {
6 ($x, $y) = split(/\s+/, $_);
7 if ($x > 28) {
8 print "$x, $y, $pre_x, $pre_y\n";
9 # intepolation
10 last;
11 }
12
13 ($pre_x, $pre_y) = ($x, $y);
14 }
15 exit;
※ 引述《liuintel (康康)》之铭言：
: 我有一份档案内容类似
: 27.42 -39.609
: 27.64 -38.872
: 28.43 -35.201
: 29.09 -31.742
: 这是像x轴对应的y轴 把它当作线性计算
: 我想找28的时候右边的值是多少
: 要用内插的方法算出
: 我主要卡在该如何取出中间那两项跨过28的地方。让我可以加减乘除算出28对应的值。有点长
: 真的先谢谢各位