急!!!處理檔案數值

kfcdog0419

我有一份資料類似如下
===========================
3,4.8          ,400.452802218193
(3.1,4.7     ,400.xxx)
3.2,4.6          ,400.615193459049
(3.3,4.5     ,400.xxx)
3.4,4.4          ,401.285205527175
(3.5,4.3     ,400.xxx)
3.6,4.2          ,402.253284109361
(3.6,4.3     ,400.xxx)
3.6,4.4          ,395.175614273155
(3.7,4.2     ,400.xxx)
3.8,4          ,403.497966749557

=============================
數字,數字,數字
我想利用內插的方式多出一倍的資料!!括弧內是想要產生的東西，append在原檔案內就可以了
原理就是內插，產生的內容就是  ==== (上數值+下數值)/2

謝謝各位大大 我卡在這!!!

104359176

1. #!perl
   
2. 
   
3. use 5.016;
   
4. 
   
5. while (my $line = <DATA>) {
   
6.     chomp $line;
   
7.     if ($line =~ /^([\d\.]+),([\d\.]+)/) {
   
8.         say $line;
   
9.         my $first = $1 + 0.1;
   
10.         my $second = $2 - 0.1;
    
11.         say "($first,$second      ,400.xxx)";
    
12.     }
    
13. }
    
14. 
    
15. 
    
16. __DATA__
    
17. 3,4.8         ,400.452802218193
    
18. 3.2,4.6       ,400.615193459049
    
19. 3.4,4.4       ,401.285205527175
    
20. 3.6,4.2       ,402.253284109361
    
21. 3.6,4.4       ,395.175614273155
    
22. 3.8,4         ,403.497966749557
    

复制代码

kfcdog0419

回复 2# 104359176

大大是不是有點誤解我意思 不是每個都剛好+0.1 -0.1

是上下取中間值的

謝謝大大


   

pitonas

大大{:2_172:}

1. #!/usr/bin/perl
   
2. 
   
3. my @value = map [ split /\s*,\s*|\n/ ], <DATA>;
   
4. while ( my $A = shift @value ) {
   
5.     print "$A->[0],$A->[1]\t,$A->[2]\n";
   
6.     next unless @value;
   
7.     my @C = map { ( $A->[$_] + $value[0][$_] ) / 2 } 0 .. 2;
   
8.     print "$C[0],$C[1]\t,$C[2]\n";
   
9. }
   
10. 
    
11. __DATA__
    
12. 3,4.8          ,400.452802218193
    
13. 3.2,4.6          ,400.615193459049
    
14. 3.4,4.4          ,401.285205527175
    
15. 3.6,4.2          ,402.253284109361
    
16. 3.6,4.4          ,395.175614273155
    
17. 3.8,4          ,403.497966749557
    

复制代码

kfcdog0419

回复 4# pitonas

可以了 太感謝大大了!!!!!!!!!!!


   

kernel69

1. $A->[0],$A->[1]\t,$A->[2]

复制代码

大牛，这个不用声明引用吗？
回复 4# pitonas


   

pitonas

{:2_172:}

1. while ( my $A = shift @value ) {

复制代码

回复 6# kernel69


   

kernel69

我认为这个是在声明引用，

1. my @value = map [ split /\s*,\s*|\n/ ], <DATA>;

复制代码

，原因是在[]，是用来创建匿名数组的
回复 7# pitonas