版主帮我看个问题，谢谢

joneui

change.conf内容如下：

1. 
   
2. dong.hui        pptpd        "Dong.huI"        192.168.1.1
   
3. wang.jing        pptpd        "Wang.jinG"        192.168.1.2
   
4. zhang.wei        pptpd        "Zhang.weI"        192.168.1.3
   
5. liu.mingfei        pptpd        "Liu.mingfeI"        192.168.1.4
   
6. zhang.jin        pptpd        "Zhang.jiN"        192.168.1.5
   
7. wang.zhi        pptpd        "Wang.zhI"        192.168.1.6
   
8. sun.xiaojin        pptpd        "Sun.xiaojiN"        192.168.1.7
   
9. li.qingsheng        pptpd        "Li.qingshenG"        192.168.1.8
   
10. liu.yuhua        pptpd        "Liu.yuhuA"        192.168.1.9
    
11. zhang.zhiping        pptpd        "Zhang.zhipinG"        192.168.1.10
    

复制代码

name.txt内容如下：

1. 
   
2. liu.mingfei
   
3. zhang.jin
   
4. wang.zhi
   
5. sun.xiaojin
   
6. li.qingsheng
   
7. liu.yuhua
   
8. zhang.zhiping
   

复制代码

要实现的功能是：找出name.txt和change.conf中名字相同的

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use warnings;
   
5. use strict;
   
6. 
   
7. open CONF,"change.conf" or die "change.conf:$!\n";
   
8. open NAME,"name.txt" or die "name:$!\n";
   
9. my @conf = <CONF>;
   
10. my $name;
    
11. while ($name=<NAME>){
    
12.         chomp $name;
    
13.         print "name = $name\n";
    
14.         foreach (@conf){
    
15.                 chomp;
    
16.                 if (index($_, $name) >= 0){
    
17.                         print "repeat $name \n";
    
18.                 }else{
    
19.                         print "name=$name, $_\n";
    
20.                 }
    
21.         }
    
22. }
    

复制代码

我这里的运行结果很奇怪

1. 
   
2. name = liu.mingfei
   
3. , dong.huiingfeipptpd        "Dong.huI"        192.168.1.1
   
4. , wang.jingngfeipptpd        "Wang.jinG"        192.168.1.2
   
5. , zhang.weingfeipptpd        "Zhang.weI"        192.168.1.3
   
6. , liu.mingfeifeipptpd        "Liu.mingfeI"        192.168.1.4
   
7. , zhang.jinngfeipptpd        "Zhang.jiN"        192.168.1.5
   
8. , wang.zhiingfeipptpd        "Wang.zhI"        192.168.1.6
   
9. , sun.xiaojinfeipptpd        "Sun.xiaojiN"        192.168.1.7
   
10. , li.qingshengeipptpd        "Li.qingshenG"        192.168.1.8
    
11. , liu.yuhuangfeipptpd        "Liu.yuhuA"        192.168.1.9
    
12. , zhang.zhiping        pptpd        "Zhang.zhipinG"        192.168.1.10
    
13. name = zhang.jin
    
14. , dong.hui.jin  pptpd        "Dong.huI"        192.168.1.1
    
15. , wang.jingjin  pptpd        "Wang.jinG"        192.168.1.2
    
16. , zhang.weijin  pptpd        "Zhang.weI"        192.168.1.3
    
17. , liu.mingfei        pptpd        "Liu.mingfeI"        192.168.1.4
    
18. , zhang.jinjin  pptpd        "Zhang.jiN"        192.168.1.5
    
19. , wang.zhi.jin  pptpd        "Wang.zhI"        192.168.1.6
    
20. , sun.xiaojin        pptpd        "Sun.xiaojiN"        192.168.1.7
    
21. , li.qingsheng        pptpd        "Li.qingshenG"        192.168.1.8
    
22. , liu.yuhuajin  pptpd        "Liu.yuhuA"        192.168.1.9
    
23. , zhang.zhiping        pptpd        "Zhang.zhipinG"        192.168.1.10
    
24. name = wang.zhi
    
25. , dong.huizhi   pptpd        "Dong.huI"        192.168.1.1
    
26. , wang.jinghi   pptpd        "Wang.jinG"        192.168.1.2
    
27. , zhang.weihi   pptpd        "Zhang.weI"        192.168.1.3
    
28. , liu.mingfei        pptpd        "Liu.mingfeI"        192.168.1.4
    
29. , zhang.jinhi   pptpd        "Zhang.jiN"        192.168.1.5
    
30. , wang.zhizhi   pptpd        "Wang.zhI"        192.168.1.6
    
31. , sun.xiaojin        pptpd        "Sun.xiaojiN"        192.168.1.7
    
32. , li.qingsheng        pptpd        "Li.qingshenG"        192.168.1.8
    
33. , liu.yuhuahi   pptpd        "Liu.yuhuA"        192.168.1.9
    
34. , zhang.zhiping        pptpd        "Zhang.zhipinG"        192.168.1.10
    
35. name = sun.xiaojin
    
36. , dong.huiiaojinpptpd        "Dong.huI"        192.168.1.1
    
37. , wang.jingaojinpptpd        "Wang.jinG"        192.168.1.2
    
38. , zhang.weiaojinpptpd        "Zhang.weI"        192.168.1.3
    
39. , liu.mingfeijinpptpd        "Liu.mingfeI"        192.168.1.4
    
40. , zhang.jinaojinpptpd        "Zhang.jiN"        192.168.1.5
    
41. , wang.zhiiaojinpptpd        "Wang.zhI"        192.168.1.6
    
42. , sun.xiaojinjinpptpd        "Sun.xiaojiN"        192.168.1.7
    
43. , li.qingshenginpptpd        "Li.qingshenG"        192.168.1.8
    
44. , liu.yuhuaaojinpptpd        "Liu.yuhuA"        192.168.1.9
    
45. , zhang.zhiping        pptpd        "Zhang.zhipinG"        192.168.1.10
    
46. name = li.qingsheng
    
47. , dong.huingshenpptpd        "Dong.huI"        192.168.1.1
    
48. , wang.jinggshenpptpd        "Wang.jinG"        192.168.1.2
    
49. , zhang.weigshenpptpd        "Zhang.weI"        192.168.1.3
    
50. , liu.mingfeihenpptpd        "Liu.mingfeI"        192.168.1.4
    
51. , zhang.jingshenpptpd        "Zhang.jiN"        192.168.1.5
    
52. , wang.zhingshenpptpd        "Wang.zhI"        192.168.1.6
    
53. , sun.xiaojinhenpptpd        "Sun.xiaojiN"        192.168.1.7
    
54. , li.qingshengenpptpd        "Li.qingshenG"        192.168.1.8
    
55. , liu.yuhuagshenpptpd        "Liu.yuhuA"        192.168.1.9
    
56. , zhang.zhipingnpptpd        "Zhang.zhipinG"        192.168.1.10
    
57. name = liu.yuhua
    
58. , dong.huiuhua  pptpd        "Dong.huI"        192.168.1.1
    
59. , wang.jinghua  pptpd        "Wang.jinG"        192.168.1.2
    
60. , zhang.weihua  pptpd        "Zhang.weI"        192.168.1.3
    
61. , liu.mingfei        pptpd        "Liu.mingfeI"        192.168.1.4
    
62. , zhang.jinhua  pptpd        "Zhang.jiN"        192.168.1.5
    
63. , wang.zhiuhua  pptpd        "Wang.zhI"        192.168.1.6
    
64. , sun.xiaojin        pptpd        "Sun.xiaojiN"        192.168.1.7
    
65. , li.qingsheng        pptpd        "Li.qingshenG"        192.168.1.8
    
66. , liu.yuhuahua  pptpd        "Liu.yuhuA"        192.168.1.9
    
67. , zhang.zhiping        pptpd        "Zhang.zhipinG"        192.168.1.10
    
68. name = zhang.zhiping
    
69. name=zhang.zhiping , dong.hui        pptpd        "Dong.huI"        192.168.1.1
    
70. name=zhang.zhiping , wang.jing        pptpd        "Wang.jinG"        192.168.1.2
    
71. name=zhang.zhiping , zhang.wei        pptpd        "Zhang.weI"        192.168.1.3
    
72. name=zhang.zhiping , liu.mingfei        pptpd        "Liu.mingfeI"        192.168.1.4
    
73. name=zhang.zhiping , zhang.jin        pptpd        "Zhang.jiN"        192.168.1.5
    
74. name=zhang.zhiping , wang.zhi        pptpd        "Wang.zhI"        192.168.1.6
    
75. name=zhang.zhiping , sun.xiaojin        pptpd        "Sun.xiaojiN"        192.168.1.7
    
76. name=zhang.zhiping , li.qingsheng        pptpd        "Li.qingshenG"        192.168.1.8
    
77. name=zhang.zhiping , liu.yuhua        pptpd        "Liu.yuhuA"        192.168.1.9
    
78. name=zhang.zhiping , zhang.zhiping        pptpd        "Zhang.zhipinG"        192.168.1.10
    

复制代码

joneui

{:2_166:}这个是刚才另一个帖子中的问题衍生出来的，不理解

yinyuemi

回复 2# joneui


    每读一行name，循环一遍conf，所以输出lines of file-name × lines of file-conf 个结果

joneui

回复 3# yinyuemi


    是这个逻辑，但是正确的输出应该是name=XXXX, XXXXXX，现在的输出除了最后一遍循环是正确的外，其它都不正确

joneui

我已经知道是什么原因造成这里打印出错的了。因为在name.txt文件中，每行的换行是"\r\n"，我看它的十六进制代码是0D 0A，通过chomp函数，只能去掉一个回车，所以字符串标量还是带有一个回车的。这就造成了打印出错。

joneui

我已经知道是什么原因造成这里打印出错的了。因为在name.txt文件中，每行的换行是"\r\n"，我看它的十六进制代码是0D 0A，通过chomp函数，只能去掉一个回车，所以字符串标量还是带有一个回车的。这就造成了打印出错。

joneui

但是不知道要怎么去掉这个txt中的多出来的回来符，我后来是用vi一条一条输入的，有人知道吗？

RE_HASH

s/\r//g;