如何實現疊加輸出？

nanshanjin

如題，現有文件如下：
D a        
P b
C c
O d
F e
G f
S g
G i
S j
G k
S l
D m
P n
...
...

\t分隔
輸出為
D_a
D_a; P_b
D_a; P_b;C_c
D_a; P_b;C_c;O_d
D_a; P_b;C_c;O_d;F_e
D_a; P_b;C_c;O_d;F_e;G_f
D_a; P_b;C_c;O_d;F_e;G_f;S_g
D_a; P_b;C_c;O_d;F_e;G_i
D_a; P_b;C_c;O_d;F_e;G_i;S_j
G和S之前疊加輸出，然后每個D、P之間循環，有大神知道如何實現嗎？

iamlimeng

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. my $string = '';
   
6. my $string_temp = '';
   
7. while (<DATA>) {
   
8.          chomp;
   
9.          my ($l1,$l2) = split /\s+/;
   
10.          if ($l1 =~ /D/i) {
    
11.                  $string = "$l1\_$l2";
    
12.                  print "$string\n";
    
13.          }
    
14.          elsif ($l1 =~ /G/i) {
    
15.                  $string_temp = "$string; $l1\_$l2";
    
16.                  print "$string_temp\n";
    
17.          }
    
18.          elsif ($l1 =~ /S/i) {
    
19.                  $string_temp .= "; $l1\_$l2";
    
20.                  print "$string_temp\n";
    
21.          }
    
22.          else {
    
23.                  $string .= "; $l1\_$l2";
    
24.                  print "$string\n";
    
25.          }
    
26. }
    
27. <>;
    
28. 
    
29. __DATA__
    
30. D a
    
31. P b
    
32. C c
    
33. O d
    
34. F e
    
35. G f
    
36. S g
    
37. G i
    
38. S j
    
39. G k
    
40. S l
    
41. D m
    
42. P n
    
43. C c
    
44. O d
    
45. F e
    
46. G f
    
47. S g
    
48. G i
    
49. S j
    
50. G k
    
51. S l

復制代碼