求perl脚本程序

nulijq

需求如下：
如：'20120520','aa','bb','cc','
dd'                                      #问题数据''之间存在换行
      '20120520','ee','dd','ff','gg'     #正常数据
      '20120520','dd','ef','rr','        #问题数据''之间存在换行
gg'                                       

处理为:'20120520','aa','bb','cc','dd'
       '20120520','ee','dd','ff','gg'
       '20120520','dd','ef','rr','gg'
需要
1）两个单引号外的换行符要保留，2）两个单引号内的换行符要去掉
也可以理解为，文件中除了第一行外，文件中其他行，若不是以'开头就把它合并到上一行中。
补充：看了下数据，也存在'开头，非法的数据，只能根据''对数判断了。

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'
    

复制代码

kk861123

回复 1# nulijq


    看看最后加的两行数据是不是你说的意思？

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. {
   
5.     local $/;
   
6.     my $str = <DATA>;
   
7.     $str =~ s/^\s+//mg;
   
8.     $str =~ s/(['] [^']*? ['])/ remove_carriage_return($1) /xeg;
   
9.     print "$str";
   
10. }
    
11. sub remove_carriage_return {
    
12.     my $get = shift;
    
13.     $get =~ s/\n//g;
    
14.     return $get;
    
15. }
    
16. 
    
17. __DATA__
    
18. '20120520','aa','bb','cc','
    
19. dd'
    
20.       '20120520','ee','dd','ff','gg'
    
21.       '20120520','dd','ef','rr','
    
22. gg'
    
23.       '20120520','dd','ef','rr','aa
    
24. '
    
25.       '20120520','ee','dd','ff','gg'
    

复制代码

RE_HASH

s/\n//g; s/'2012/\n'2012/g;

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.           '

复制代码

Perlvim

s/,'$\n/,'/xmsg;

nulijq

谢谢，各位的程序了，我试试。

nulijq

回复 4# kk861123


    你好！谢谢你的帮助。我文件里面的数据形式就是这个样子的，试了试，符合要求：
   我的源文件为.csv的文件，如何修改这个文件呢，修改为处理过的规整信息
   如问题文件名为  MSC_201205.csv,试着写了下，发现源文件的内容没有修改。

kk861123

nulijq 发表于 2012-06-01 15:13
回复 4# kk861123

我建议你还是从“MSC_201205.csv”文件中读取，再重新写入其他文件吧