如何删除指定行内第一列的数字？

zhaopingzi

1. 
   
2. awk '{if(NR>2){gsub(/[0-9]+/," ",$1);print $0}else print $0}' file
   
3. 217
   
4. 
   
5. N  1.80 -2.08 -0.16
   
6. C  5.09 -0.54 -0.87
   
7. C  5.35 -2.03 -0.76
   
8. C  6.56 -2.70 -0.84
   
9. H  7.49 -2.17 -1.02
   
10. C  6.55 -4.09 -0.69
    
11. H  7.49 -4.64 -0.75
    
12. C  5.36 -4.80 -0.45
    
13. H  5.40 -5.87 -0.33
    
14. C  4.15 -4.13 -0.35
    
15. H  3.22 -4.65 -0.16
    
16. C  4.16 -2.74 -0.51
    
17. C  3.07 -1.78 -0.45
    
18. C  3.59 -0.48 -0.68
    
19. C  2.76 0.62 -0.57
    
20. C  1.37 0.34 -0.28
    
21. C  0.96 -1.03 -0.08
    
22. C  -0.40 -1.33 0.21
    
23. H  -0.64 -2.37 0.39
    
24. C  3.27 1.99 -0.72
    
25. C  3.11 2.93 0.31
    
26. H  2.60 2.64 1.22
    
27. C  3.66 4.20 0.19
    
28. H  3.55 4.91 1.00
    
29. C  4.35 4.56 -0.97
    
30. H  4.77 5.56 -1.07
    
31. C  4.49 3.64 -2.01
    
32. H  5.02 3.92 -2.92
    
33. C  3.97 2.36 -1.88
    
34. H  4.08 1.64 -2.69
    
35. N  -1.80 2.08 0.16
    
36. C  -5.09 0.54 0.87
    
37. C  -5.35 2.03 0.76
    
38. C  -6.56 2.70 0.84
    
39. H  -7.49 2.17 1.02
    
40. C  -6.55 4.09 0.69
    
41. H  -7.49 4.64 0.75
    
42. C  -5.36 4.80 0.45
    
43. H  -5.40 5.87 0.33
    
44. C  -4.15 4.13 0.35
    
45. H  -3.22 4.65 0.16
    
46. C  -4.16 2.74 0.51
    
47. C  -3.07 1.78 0.45
    
48. C  -3.59 0.48 0.68
    
49. C  -2.76 -0.62 0.57
    
50. C  -1.37 -0.34 0.28
    
51. C  -0.96 1.03 0.08
    
52. C  0.40 1.33 -0.21
    
53. H  0.64 2.37 -0.39
    
54. C  -3.27 -1.99 0.72
    
55. C  -3.11 -2.93 -0.31
    
56. H  -2.60 -2.64 -1.22
    
57. C  -3.66 -4.20 -0.19
    
58. H  -3.55 -4.91 -1.00
    
59. C  -4.35 -4.56 0.97
    
60. H  -4.77 -5.56 1.07
    
61. C  -4.49 -3.64 2.01
    
62. H  -5.02 -3.92 2.92
    
63. C  -3.97 -2.36 1.88
    
64. H  -4.08 -1.64 2.69
    
65. C  5.87 0.30 0.12
    
66. C  5.67 0.12 1.50
    
67. C  6.77 1.27 -0.31
    
68. C  6.36 0.90 2.42
    
69. H  4.98 -0.64 1.85
    
70. C  7.46 2.05 0.61
    
71. H  6.92 1.42 -1.38
    
72. C  7.26 1.88 1.97
    
73. H  6.20 0.75 3.48
    
74. H  8.16 2.81 0.26
    
75. H  7.79 2.49 2.69
    
76. C  -5.87 -0.30 -0.12
    
77. C  -5.67 -0.12 -1.50
    
78. C  -6.77 -1.27 0.31
    
79. C  -6.36 -0.90 -2.42
    
80. H  -4.98 0.64 -1.85
    
81. C  -7.46 -2.05 -0.61
    
82. H  -6.92 -1.42 1.38
    
83. C  -7.26 -1.88 -1.97
    
84. H  -6.20 -0.75 -3.48
    
85. H  -8.16 -2.81 -0.26
    
86. H  -7.79 -2.49 -2.69
    
87. H  5.36 -0.20 -1.88
    
88. H  -5.36 0.20 1.88
    
89. 
    

复制代码

super_fan_cu

zhaopingzi 发表于 2012-03-18 18:51

为何会每行都变两行？

zhaopingzi

回复 12# super_fan_cu




刚才改了一下，再试一下
   

perlnewbie

#!perl -w
use strict;

while(<DATA>){
      if (1..3){
           print;
      }
     else {
       s#^([A-Z]+)\d+#$1 #g;
     print;}
}
__DATA__
N1 1.80 -2.08 -0.16
C2 5.09 -0.54 -0.87
C3 5.35 -2.03 -0.76
C4 6.56 -2.70 -0.84
H5 7.49 -2.17 -1.02
C6 6.55 -4.09 -0.69
H7 7.49 -4.64 -0.75
C8 5.36 -4.80 -0.45
H9 5.40 -5.87 -0.33
C10 4.15 -4.13 -0.35
H11 3.22 -4.65 -0.16
C12 4.16 -2.74 -0.51
C13 3.07 -1.78 -0.45
C14 3.59 -0.48 -0.68
C15 2.76 0.62 -0.57
C16 1.37 0.34 -0.28
C17 0.96 -1.03 -0.08
C18 -0.40 -1.33 0.21
H19 -0.64 -2.37 0.39
C20 3.27 1.99 -0.72
C21 3.11 2.93 0.31
H22 2.60 2.64 1.22
C23 3.66 4.20 0.19

denifears

没看懂题目啥意思。。。

super_fan_cu

回复 15# denifears


    看来我没说明白，我的本意是去掉从第三行开始的每行字母后的数字
让符合.xyz格式的坐标
也就是这种格式

217

N  1.80    -2.08    -0.16
C  5.09    -0.54    -0.87
C  5.35    -2.03    -0.76
C  6.56    -2.70    -0.84
H  7.49    -2.17    -1.02
C  6.55    -4.09    -0.69
H  7.49    -4.64    -0.75
C  5.36    -4.80    -0.45
H  5.40    -5.87    -0.33
C   4.15    -4.13    -0.35
H   3.22    -4.65    -0.16
C   4.16    -2.74    -0.51

字母后紧跟的数字编号过滤去！

zhaopingzi

回复 16# super_fan_cu


你看11楼行吗

   

super_fan_cu

zhaopingzi 发表于 2012-03-19 10:25
回复 16# super_fan_cu

awk '{if(NR>2){gsub(/[0-9]+/," ",$1);print $0}else print $0}' file
试了，你的这个可以的
谢谢了！

xiaozhengchu_qq

sed '3,$ s/\([A-Z]\)[0-9]* /\1/g' data_file

super_fan_cu

xiaozhengchu_qq 发表于 2012-03-19 11:53
sed '3,$ s/\([A-Z]\)[0-9]* /\1/g' data_file

也是可以实现的，谢谢！