求perl脚本程序

cdtits

1. #!/usr/bin/env perl
   
2. #
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $last;
   
8. 
   
9. while (<DATA>) {
   
10.     s/^\s+//g;
    
11.     if (/^'/) {
    
12.         print $last if $last;
    
13.         $last = $_;
    
14.     }
    
15.     else {
    
16.         chomp $last;
    
17.         $last .= $_;
    
18.     }
    
19. }
    
20. print $last;
    
21. 
    
22. 
    
23. __DATA__
    
24. '20120520','aa','bb','cc','
    
25.     dd'
    
26. '20120520','ee','dd','ff','gg'
    
27. '20120520','dd','ef','rr','
    
28.   gg'

复制代码

cdtits

1. #!/usr/bin/env perl
   
2. #
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $last;
   
8. 
   
9. while (<DATA>) {
   
10.     s/^\s+//g;
    
11.     next if !$_;
    
12.     if (/^'/) {
    
13.         print $last if $last;
    
14.         $last = $_;
    
15.     }
    
16.     else {
    
17.         chomp $last;
    
18.         $last .= $_;
    
19.     }
    
20. }
    
21. print $last if $last;
    
22. 
    
23. 
    
24. __DATA__
    
25. '20120520','aa','bb','cc','
    
26.     dd'
    
27. 
    
28. '20120520','ee','dd','ff','gg'
    
29. '20120520','dd','ef','rr','
    
30.   gg'
    

复制代码