在 http://www.oschina.net/question/166567_24479 也可找到这个帖子，麻烦大家帮忙下，谢谢了。
On 7月24日, 下午12时45分, 夏凯 <[email protected]> wrote: > 抓图，或者做个网页放网上，给个链接下载，否则这样太乱了。 > > 2011/7/24 wd <[email protected]>: > > > > > > > 你可以抓图的。。。 > > > 在 2011年7月23日 下午6:38，wch <[email protected]> 写道： > >> 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 讨论组"论坛。 > >> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > >> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 > >> 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。 > > > -- > > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。 > > 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > > 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 > > 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。 > > -- > contact me: > MSN: [email protected] > GTALK: [email protected] 隐藏被引用文字 - > > - 显示引用的文字 - -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
