请教文本转换,2行变1行

biomasm

文本
1,9,6.4,13,12
1,6,7.6,15,15
-------
-------
-------
去小数,1位数变为2位数,2行变1行,转换为文本
0101,0906,0607,1315,1215
-------
-------
-------

怒剑狂啸

1. 
   
2. open (FILE,"test.txt");#要打开的文件
   
3. while ($a=<FILE>;) {
   
4.         $b=<FILE>;;
   
5.         chomp ($a,$b);
   
6.         @a=split(/,/,$a);
   
7.         @b=split(/,/,$b);
   
8.         for($i=0;$i<=$#a;$i++) {
   
9.                 push @c,sprintf("%02d%02d",$a[$i],$b[$i]);
   
10.         }
    
11.         print join(",",@c),"\n";
    
12. }
    
13. close FILE;
    

复制代码

biomasm

呵呵,代码很短,却可省我许多时间,承教!不过此代码有一小问题,运行结果下行包括了上行,在print join(",",@c),"\n"; 之后加@c=();即可.多谢!

怒剑狂啸

忘了清空列表了，经常犯这种错误！呵呵，同样承教