首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 利用perl 如何抽取 input.txt 部分内容，排列成output.txt中这样形式

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

时间：2011-07-23

来源：互联网

本帖最后由 weichanghe2000 于 2011-07-23 01:10 编辑

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

  5. Vb=0
  6. X=x11, x12
  7. Y=y11, y12
  8. Z=z11, z12

  10. Vb=0.4
  11. X=x21, x22
  12. Y=y21, y22
  13. Z=z21, z22

  15. Vb=1
  16. X=x31, x32
  17. Y=y31, y32
  18. Z=z31, z32
  19. K=k31, k32
  20. ******************

  22. ID=1 IX=2 IY=3
  23. Kuan=2 Chang=0.5 Tem=20
  24. Begin to generate date:

  26. Vb=0
  27. X=x41, x42
  28. Y=y41, y42
  29. Z=z41, z42

  31. Vb=0.4
  32. X=x51, x52
  33. Y=y51, y52
  34. Z=z51, z52

  36. Vb=1
  37. X=x61, x62
  38. Y=y61, y62
  39. Z=z61, z62
  40. K=k61, k62
  41. ******************
  42. 后面 还有很多段这样的
复制代码
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    x11   x12   y11   y12   z11   z12   null   null
  3. 1   1     0.1    20   -1   -1   0.4  x21   x22   y21   y22   z21   z22   null   null
  4. 1   1     0.1    20   -1   -1   1    x31   x32   y31   y32   z31   z32   k31    k32
  5. 1   2     0.5    20   2    3    0    x41   x42   y41   y42   z41   z42   null   null
  6. 1   2     0.5    20   2    3    0.4  x51   x52   y51   y52   z51   z52   null   null
  7. 1   2     0.5    20   2    3    1    x61   x62   y61   y62   z61   z62   k31    k32
  8. ……………
  9. ……………
  10. ……………
复制代码
我的问题是想请教大家：利用perl 如何抽取 input.txt 中部分内容，并输出到output.txt，排列成output.txt中这样形式。

作者: weichanghe2000   发布时间: 2011-07-23

本帖最后由 yinyuemi 于 2011-07-23 05:32 编辑

回复 weichanghe2000
  1. #!/bin/perl
  2. use strict;
  3. my @title=qw(ID Kuan Chang Tem IX IY Vb X1 X2 Y1 Y2 Z1 Z2 K1 K2);
  4. my %value;
  5. my ($line,$label,$tmp);

  7. while (<DATA>){
  8.         chomp;
  9.         my ($a,$b)=(1,2);
  10.         s/(\w+)=(\w+), (\w+)/$1$a=$2 $1$b=$3/;
  11.         if(/^ID/){$label=0;$tmp="";}
  12.         if(/Vb/){$label=1;$line++;}
  13.         if($label eq 0){
  14.                 while (m,(\w+)=([^\s]+)\s?,g){
  15.                         $value{$1}=$2;
  16.                 }
  17.         }elsif($label eq 1){
  18.                 for(0..5){$tmp.=$value{$title[$_]}."\t";}
  19.                 while (m,(\w+)=([^\s]+)\s?,g){
  20.                         $value{$1}{$line}=$tmp.$2;
  21.                         $label++;
  22.                 }
  23.         }else{
  24.                 while (m,(\w+)=([^\s]+)\s?,g){
  25.                         $value{$1}{$line}=$2;
  26.                         $tmp="";
  27.                 }
  28.         }       
  29. }

  31. print join "\t",@title,"\n";
  32. for my $m (1..$line){
  33.         for my $n (6..$#title){
  34.                 print  $value{$title[$n]}{$m}||"NULL","\t";
  35.         }
  36.         print "\n";
  37. }


  40. __DATA__
  41. ID=1 IX=-1 IY=-1
  42. Kuan=1 Chang=0.1 Tem=20
  43. Begin to generate date:

  45. Vb=0
  46. X=x11, x12
  47. Y=y11, y12
  48. Z=z11, z12

  50. Vb=0.4
  51. X=x21, x22
  52. Y=y21, y22
  53. Z=z21, z22

  55. Vb=1
  56. X=x31, x32
  57. Y=y31, y32
  58. Z=z31, z32
  59. K=k31, k32

  61. ****************
  62. ID=1 IX=2 IY=3
  63. Kuan=2 Chang=0.5 Tem=20
  64. Begin to generate date:

  66. Vb=0
  67. X=x41, x42
  68. Y=y41, y42
  69. Z=z41, z42

  71. Vb=0.4
  72. X=x51, x52
  73. Y=y51, y52
  74. Z=z51, z52

  76. Vb=1
  77. X=x61, x62
  78. Y=y61, y62
  79. Z=z61, z62
  80. K=k61, k62
复制代码

作者: yinyuemi   发布时间: 2011-07-23

太牛了 ！楼上的 。

作者: qq64878641   发布时间: 2011-07-23

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net