大侠们，帮帮忙哈,这个怎么实现啊？

perl初学者

上午写的不是特别清晰，这会儿再简单描述一下，
我有一些数据，就像下面的数据一样：
ID start end
##
s  12 65
st  12 36
st1 12 16
st2 20 25
st3 30 36
##
sr 38 65
sr1 38 45
sr2 46 56
sr3 61 65
##
s 100 200
st 100 150
st1 100 120
st2 125  140
st3 145 150
而我想在ID为三个字母的行中间插入一行，使得这一行的数据start为上一行start+1，end为下一行数据的end-1（当然如果三个字母之间的数据是连续的则不加新的一行）；即结果如下：
##
s  12 65
st  12 36
st1 12 16
ttt 17 19（ttt可随便命名）
st2 20 25
ttt 26 29
st3 30 36
##
sr 38 65
sr1 38 45
sr2 46 56
ttt  57 60
sr3 61 65
##
....

rubyish

就像下面的一样：

1. #!/usr/bin/perl
   
2. 
   
3. use 5.016;
   
4. my $t = 'tmp';
   
5. my @a = split /\n^##\n/m, do { local $/; <DATA> };
   
6. 
   
7. say shift @a, "\n##";
   
8. 
   
9. for (@a) {
   
10.     my ( $a, $b ) = split /\n(?=^\w{3,})/m, $_, 2;
    
11.     say $a;
    
12.     my ( @b, @c ) = split /\n/, $b;
    
13. 
    
14.     for ( 0 .. $#b ) {
    
15.         my ( $x, $y, $z ) = @c ? @c : split( /\s+/, $b[$_] );
    
16.         say $b[$_];
    
17. 
    
18.         if ( $_ < $#b ) {
    
19.             @c = split /\s+/, $b[ $_ + 1 ];
    
20.             say join ' ', $t, $z + 1, $c[1] - 1 unless $z == $c[1] - 1;
    
21.         }
    
22.     }
    
23.     say '##';
    
24. }
    
25. __DATA__
    
26. ID start end
    
27. ##
    
28. s  12 65
    
29. st  12 36
    
30. st1 12 16
    
31. st2 20 25
    
32. st3 30 36
    
33. ##
    
34. sr 38 65
    
35. sr1 38 45
    
36. sr2 46 56
    
37. sr3 61 65
    
38. ##
    
39. s 100 200
    
40. st 100 150
    
41. st1 100 120
    
42. st2 125 140
    
43. st3 145 150

复制代码

1. ID start end
   
2. ##
   
3. s  12 65
   
4. st  12 36
   
5. st1 12 16
   
6. tmp 17 19
   
7. st2 20 25
   
8. tmp 26 29
   
9. st3 30 36
   
10. ##
    
11. sr 38 65
    
12. sr1 38 45
    
13. sr2 46 56
    
14. tmp 57 60
    
15. sr3 61 65
    
16. ##
    
17. s 100 200
    
18. st 100 150
    
19. st1 100 120
    
20. tmp 121 124
    
21. st2 125 140
    
22. tmp 141 144
    
23. st3 145 150
    
24. ##
    

复制代码

perl初学者

谢过了哈~总算知道自己哪个地方出错了！回复 2# rubyish


   

rubyish

过了一年时光:

1. #!/usr/bin/perl
   
2. $/ = '##';
   
3. print scalar <DATA>, join "##", map {
   
4.     my ( $m, $n ) = /(.*?)(^\w{3,}.*)/sm;
   
5.     my @a = $n =~ /\w+/g;
   
6.     for ( my $i = 0 ; $i < $#a - 2 ; $i += 3 ) {
   
7.         my ( $x, $y ) = @a[ $i + 4, $i + 2 ];
   
8.         $m .= "@a[$i..$i+2]\n" . ( $x-- - $y++ > 1 ? "tmp $y $x\n" : '' );
   
9.     }
   
10.     $m .= "@a[-3..-1]\n";
    
11. } <DATA>;
    
12. 
    
13. __DATA__
    
14. ID start end
    
15. ##
    
16. s  12 65
    
17. st  12 36
    
18. st1 12 16
    
19. st2 20 25
    
20. st3 30 36
    
21. ##
    
22. sr 38 65
    
23. sr1 38 45
    
24. sr2 46 56
    
25. sr3 61 65
    
26. ##
    
27. s 100 200
    
28. st 100 150
    
29. st1 100 120
    
30. st2 125  140
    
31. st3 145 150

复制代码