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=20 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中这样形 式。 -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
