讀取每一行然後取出資料
像版友說的多存一份前一次的那一筆資料
執行結果: 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對應的值。有點長
: 真的先謝謝各位