求perl脚本程序

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'
    

复制代码

kk861123

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

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