[PerlChina] 1

input.txt 内容如下：
ID=1 IX=-1 IY=-1
Kuan=1 Chang=0.1 Tem=20
Begin to generate date:

Vb=0
X=0.1, 0.12
Y=0.6, 0.3
Z=0.45, 0.23


Vb=0.4
X=0.34, 0.43
Y=0.45, 0.6
Z=0.6, 0.8


Vb=1
X=0.3, 0.35
Y=0.28, 0.3
Z=0.4, 0.21
K=0.78, 0.79
******************


ID=1 IX=2 IY=3
Kuan=2 Chang=0.5 Tem=25
Begin to generate date:


Vb=0
X=0.7, 0.77
Y=0.5, 0.34
Z=0.8, 0.89


Vb=0.4
X=0.54, 0.88
Y=0.7, 0.89
Z=0.9, 0.34


Vb=1
X=0.78, 0.3
Y=0.34, 0.23
Z=0.5, 0.6
K=0.2, 0.4
******************


后面 还有很多段这样的


output.txt 内容如下：

ID Kuan Chang Tem IX IY Vb X1 X2 Y1
Y2 Z1 Z2 K1 K2
1 1 0.1 20 -1 -1 0
1 1 0.1 20 -1 -1 0.4
1 1 0.1 20 -1 -1 1
1 2 0.5 25 2 3 0
1 2 0.5 25 2 3 0.4
1 2 0.5 25 2 3 1




……………
……………
我的问题是想请教大家：利用perl 如何抽取 input.txt 中部分内容，并输出到output.txt，排列成output.txt中这样形
式。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。