浅尝Perl文本处理

     最近自己在写个小程序，需要用到一些数据，但是原始数据又不符合要求，必须进行一些必要的处理，开始准备用C++写，还没开始呢，一个同事建议用脚本写方
便很多，于是借来他桌上的Perl书籍，翻了翻，很快解决问题，Perl脚本强大的文本处理能力，让我尝到了甜头，呵呵！刚看Perl ，很多地方写的不妥，欢迎大家指正。
sorry,不知道图片放上去看不清，可以右键图片，选择在新标签页中打开

更新：今天看到Perl里有个split函数，重新改写后的程序更加简单了，以前的就别看了，丢人了！(┬＿┬)
修改后的

1、原始数据格式：


2、需要的格式


3、Perl 代码