关于文件空行问题

linux65

源文件：  将源文件中的空行填充上， 中间空行为相邻最近有数值行的差值 首尾的值和最边上的值一致  思考中..........

1. 
   
2. 
   
3. 
   
4. 2
   
5. 
   
6. 4
   
7. 
   
8. 6
   
9. 7
   
10. 6
    
11. 5
    
12. 4
    
13. 
    
14. 5
    
15. 
    
16. 6
    
17. 
    
18. 10
    
19. 
    
20. 7
    
21. 
    
22. 6
    
23. 
    
24. 
    
25. 
    
26. 
    
27. 7
    
28. 8
    
29.   
    
30.   
    
31.   
    

复制代码

希望得到结果文件：

1. 2
   
2. 2
   
3. 2
   
4. 3
   
5. 4
   
6. 5
   
7. 6
   
8. 7
   
9. 6
   
10. 5
    
11. 4
    
12. 4.5
    
13. 5
    
14. 5.5
    
15. 6
    
16. 8
    
17. 10
    
18. 9
    
19. 7
    
20. 6.5
    
21. 6
    
22. 6.2
    
23. 6.4
    
24. 6.6
    
25. 6.8
    
26. 7
    
27. 8
    
28. 8
    
29. 8
    
30. 8

复制代码

yinyuemi

回复 1# linux65

1. awk -vt1=0 -vt2=0 '
   
2. function p(a,b,c){
   
3. t2=!a?$1:a;
   
4. for(i=1;i<=c;i++){t2+=!a||!b?0:((b-a)/c);s=s RS t2};
   
5. printf s;s=""}
   
6. NF{p(t2=t1,t1=$1,NR-nr);nr=NR;}
   
7. END{p(t2=t1,t1=$0,NR-nr)}'

复制代码

linux65

回复 2# yinyuemi


  结果是对的 太精简了 以至于我还没看懂

Shell_HAT

回复 3# linux65


书看的太少了

linux65

回复 4# Shell_HAT


    你能看明白你解释一下

mpstat

回复 5# linux65


    没法给你解释,你没说你哪里没懂

linux65

谁还能有其它的解法吗?

Shell_HAT

回复 5# linux65


订机票和酒店吧，我过去当面讲。

ziyunfei

1. perl -0pe '
   
2. s/ //g; #数据里有空格,删除掉成为真的空行
   
3. s/^(?=\s+(\d+))/$1/;   #开头补数字
   
4. s/(\d+)(\s+)$/$1$2$1/;    #结尾补数字
   
5. s#(\d+)(\s{2,})(?=(\d+))(?{$a="$1\n";for(1..($len=length($2))-1){$a.=($1+($3-$1)*$_/$len)."\n"}})#$a#g    #执行替换
   
6. ' file

复制代码

linux65

回复 9# ziyunfei


    楼上朋友神勇! 你的我看懂了！