Re: [PerlChina] 利用perl 如何抽取 input.txt 部分内容，排列成output.txt中这样形式

抓图，或者做个网页放网上，给个链接下载，否则这样太乱了。

2011/7/24 wd <wd@wdicc.com>:
> 你可以抓图的。。。
>
> 在 2011年7月23日 下午6:38，wch <weichanghe2000@gmail.com> 写道：
>> 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 0.1 0.12 0.6 0.3 0.45
>> 0.23 null null
>> 1 1 0.1 20 -1 -1 0.4 0.34 0.43 0.45 0.6 0.6
>> 0.8 null null
>> 1 1 0.1 20 -1 -1 1 0.3 0.35 0.28 0.3 0.78
>> 0.79 k31 k32
>> 1 2 0.5 25 2 3 0 0.7 0.77 0.5 0.34 0.8
>> 0.89 null null
>> 1 2 0.5 25 2 3 0.4 0.54 0.88 0.7 0.89 0.9
>> 0.34 null null
>> 1 2 0.5 25 2 3 1 0.78 0.3 0.34 0.23 0.5
>> 0.6 0.2 0.4
>>
>>
>> ...............
>> ...............
>>
>>
>> 我的问题是想请教大家：利用perl 如何抽取 input.txt 中部分内容，并输出到output.txt，排列成output.txt中这样形
>> 式？
>>
>>
>> 注意：由于 论坛的显示问题，我反复修改output.txt排列，但格式总显示不出来。
>>
>> 我要求output.txt的排列效果是：
>> 第1行是 ID Kuan Chang Tem IX IY Vb X1 X2 Y1 Y2 Z1 Z2
>> K1 K2
>> 第2行是 1 1 0.1 20 -1 -1 0 0.1 0.12 0.6 0.3
>> 0.45 0.23 null null
>> 第3行是 1 1 0.1 20 -1 -1 1 0.3 0.35 0.28 0.3
>> 0.78 0.79 k31 k32
>> 第4行是 1 2 0.5 25 2 3 0 0.7 0.77 0.5 0.34
>> 0.8 0.89 null null
>> 第5行是 1 2 0.5 25 2 3 0.4 0.54 0.88 0.7 0.89
>> 0.9 0.34 null null
>> 第6行是 1 2 0.5 25 2 3 1 0.78 0.3 0.34 0.23
>> 0.5 0.6 0.2 0.4
>> ............
>>
>> 第2到第6行的值的顺序 和第1行的 变量名值是 一一对应
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>
>>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>

--
contact me:
MSN: walkerxk@gmail.com
GTALK: walkerxk@gmail.com

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