求perl脚本程序

tempo8

请问3楼next if !$_;#么司作用？#实在是妙！

1. #!/usr/bin/env perl
   
2. use strict;
   
3. use warnings;
   
4. my $last;
   
5. while (<DATA>) {
   
6.     s/^\s+//g;
   
7.     next if !$_;#实在是妙！
   
8.     if (/^'/&&/^'\N/) {
   
9.         print $last if $last;
   
10.         $last = $_;
    
11.     }
    
12.     elsif (/^'\n/)
    
13.               {
    
14.                 chomp;
    
15.                 chomp $last;
    
16.         $last .= $_;
    
17.           }               
    
18.         else {
    
19.         chomp $last;
    
20.         $last .= $_;
    
21.       }
    
22. }
    
23. print $last if $last;
    
24. 
    
25. 
    
26. __DATA__
    
27. '20120520','aa','bb','cc','
    
28. dd'
    
29.       '20120520','ee','dd','ff','gg'
    
30.       '20120520','dd','ef','rr','
    
31. gg'
    
32.       '20120520','dd','ef','rr','aa
    
33. '
    
34. XX'
    
35. 
    
36.       '20120520','ee','dd','ff','gg'
    
37.           '
    
38.           YY
    
39.           '

复制代码