请问用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 编辑 ]

ly5066113

$ cat urfile
v1  v2  v3  v4  v5
  v6   v7    v8
1   2   3    4      5
  6     7    8

1.1 2   3.2  11   6
  s     f     9

3    4    6    9     4
  0    2     6
$ xargs -n8 < urfile
v1 v2 v3 v4 v5 v6 v7 v8
1 2 3 4 5 6 7 8
1.1 2 3.2 11 6 s f 9
3 4 6 9 4 0 2 6

hjp0021

谢谢楼上各位！我再好好琢磨琢磨。

ynchnluiti

原帖由 hjp0021 于 2008-9-25 11:37 发表
while(){
    chomp;
    print;
    /\S/ and print scalar ;
}

谢谢！这么做实践证明是可行的。
关键是/\S/ and print scalar ;，我不理解。
/\S/匹配的是非空格字符串，在我的例子中也就是匹配各个 ...

这个伪函数可以用于 LIST 里，当在列表环境中计算会生成一个不同的结果的时候，强迫 EXPR 在标量环境中计算。比如：
   my ($nextvar) = scalar <STDIN>;
避免 <STDIN> 在做赋值之前从标准输入把所有的行都读了进来，因为给一个列表（甚至是一个 my 列表）赋值都会产生一个列表环境。（在这里例子里如果没有 scalar，那么来自 <STDIN> 的第一行仍然会赋予 $nextvar，但是随后的行将会被读取并抛弃，因为我们赋值的目标列表只能接受一个标量数值。）
...
因为 print 函数是一个 LIST 操作符...

hjp0021

1. while(<DATA>){
   
2.     chomp;
   
3.     print;
   
4.     /\S/ and print scalar <DATA>;
   
5. }

复制代码

谢谢！这么做实践证明是可行的。
关键是/\S/ and print scalar <DATA>;，我不理解。
/\S/匹配的是非空格字符串，在我的例子中也就是匹配各个变量的值，那么后边的scalar是强迫语句位于标量环境，为什么scalar是对<DATA>操作，而不是对"$_"操作呢？这一句的作用很不解。

还有，最后能生成期望的格式：

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. .

复制代码

那么，各行之间的回车符又是从哪里来的？

望不吝赐教。

forlorngenius

切，你个大喷油, 悠着点

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

flw

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

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

forlorngenius

难道你没有用re？

flw

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

flw

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