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

hjp0021

UID: 26165
帖子: 151
积分: 347
在线时间: 1 天 7 小时

1^# hjp0021 发表于 2008-09-25 08:41

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

[Copy to clipboard] [ - ]

CODE:

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

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

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

[Copy to clipboard] [ - ]

CODE:

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

谢谢大家！

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

2^# forlorngenius 发表于 2008-09-25 09:40

两个方法：

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

con

UID: 92
帖子: 1
积分: 2
在线时间: 10 分钟

3^# con 发表于 2008-09-25 10:07

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

落叶季节，思念季节

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

4^# flw 发表于 2008-09-25 10:13

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

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

5^# ynchnluiti 发表于 2008-09-25 10:15

参见楼上楼下，

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

6^# flw 发表于 2008-09-25 10:20

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

7^# flw 发表于 2008-09-25 10:21

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

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

8^# forlorngenius 发表于 2008-09-25 10:59

难道你没有用re？

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

9^# flw 发表于 2008-09-25 11:11

QUOTE:

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

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

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

10^# forlorngenius 发表于 2008-09-25 11:18

切，你个大喷油, 悠着点