请问用perl如何处理这种特殊格式的文档

hjp0021

1. 
   
2. v1  v2  v3  v4  v5
   
3.   v6   v7    v8
   
4. 1   2   3    4      5
   
5.   6     7    8
   
6. 
   
7. 1.1 2   3.2  11   6
   
8.   s     f     9
   
9. 
   
10. 3    4    6    9     4
    
11.   0    2     6
    
12. ......
    
13. ......
    

复制代码

文档的格式如上所示，有变量V1至V8，分别有对应值，本意是V1-V8在一行内显示，对应的值也要在一行内显示，可是 现在除了完整的行被回车分成两行外，每行之间还被多插了个回车，导致上面的情况。假设有10000行。

如何做到显示正确的格式？如下：

1. 
   
2. v1  v2  v3  v4  v5  v6   v7    v8
   
3. 1    2   3     4    5  6     7    8
   
4. 1.1 2   3.2  11   6  s     f    9
   
5. 3    4   6     9    4  0     2    6
   
6. ......
   
7. ......

复制代码

谢谢大家！

[ 本帖最后由 hjp0021 于 2008-9-25 08:44 编辑 ]

forlorngenius

两个方法：

1， 把开头以空格的全部移到上一行，可以用re
2，就是每读出八个写一行

con

把奇数行的回车去掉不就行了?

flw

while(<DATA>){
    chomp;
    print;
    /\S/ and print scalar <DATA>;
}

[ 本帖最后由 flw 于 2008-9-25 10:21 编辑 ]

ynchnluiti

参见楼上楼下，

[ 本帖最后由 ynchnluiti 于 2008-9-25 10:42 编辑 ]

flw

perl -l0ne 'print; /\S/ and print scalar <>' /path/to/your/file

flw

我觉得还是尽量不要滥用正则表达式比较好。

forlorngenius

难道你没有用re？

flw

原帖由 forlorngenius 于 2008-9-25 10:59 发表
难道你没有用re？

小喷油，用和滥用是两码事。学着点儿。

forlorngenius

切，你个大喷油, 悠着点

[ 本帖最后由 forlorngenius 于 2008-9-25 11:34 编辑 ]