求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水平太菜，没写出来。请高手，帮助下，谢谢。

nulijq

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

nulijq

回复 4# kk861123


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