急!!!處理檔案數(shù)值

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

=============================
數(shù)字,數(shù)字,數(shù)字
我想利用內(nèi)插的方式多出一倍的資料!!括弧內(nèi)是想要產(chǎn)生的東西，append在原檔案內(nèi)就可以了
原理就是內(nèi)插，產(chǎn)生的內(nèi)容就是  ==== (上數(shù)值+下數(shù)值)/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
    

復(fù)制代碼

kfcdog0419

回復(fù) 2# 104359176

大大是不是有點(diǎn)誤解我意思 不是每個(gè)都剛好+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
    

復(fù)制代碼

kfcdog0419

回復(fù) 4# pitonas

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


   

kernel69

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

復(fù)制代碼

大牛，這個(gè)不用聲明引用嗎？
回復(fù) 4# pitonas


   

pitonas

{:2_172:}

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

復(fù)制代碼

回復(fù) 6# kernel69


   

kernel69

我認(rèn)為這個(gè)是在聲明引用，

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

復(fù)制代碼

，原因是在[]，是用來創(chuàng)建匿名數(shù)組的
回復(fù) 7# pitonas