【求助】哪位老大有空，帮小弟修改下我的脚本

dahe_1984

写的挺好的，能实现了就行吧。 不过vi用的挺有意思，要是我估计用sed。

houzi105

写的挺好的，能实现了就行吧。 不过vi用的挺有意思，要是我估计用sed。
dahe_1984 发表于 2011-06-30 10:37

在perl里好像直接应用一些系统命令会有点问题，不知道你遇到了吗？我现在改用perl在写，进度好慢，边学边写。

houzi105

需要学习使用hash

yinyuemi

回复 13# houzi105

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. 
   
7. open(IN_HOST_IP,"hosts_ip")||die "Can not open:$!";
   
8. open(IN_test_hosts,"test_hosts")||die "Can not open:$!";
   
9. open(OUT_host_log,">","host.log")||die "Can not open:$!";
   
10. 
    
11. my %hash_test;
    
12. 
    
13. while (<IN_HOST_IP>){
    
14.         chomp;
    
15.         #print $_,"\n";
    
16.         $hash_test{$_}=1;
    
17. }
    
18. 
    
19. while (<IN_test_hosts>){
    
20.         chomp;
    
21.         #print $_."\n";
    
22.         if (!($hash_test{$_})){
    
23.                 $_.="\n";
    
24.                 print OUT_host_log;
    
25.         }
    
26. }
    
27. 
    
28. close(OUT_host_log);
    
29. close(IN_HOST_IP);
    
30. close(IN_test_hosts);
    

复制代码

1. head hosts_ip test_hosts host.log
   
2. ==> hosts_ip <==
   
3. aaa
   
4. bbb
   
5. ccc
   
6. ddd
   
7. 
   
8. ==> test_hosts <==
   
9. bbb
   
10. ddd
    
11. eee
    
12. fff
    
13. 
    
14. ==> host.log <==
    
15. eee
    
16. fff
    

复制代码

dahe_1984

回复 12# houzi105

啥问题？ 应该不会有啥问题

houzi105

回复 15# dahe_1984


应用系统命令的时候，总报“find: incomplete statement”，这类错误。

houzi105

回复 14# yinyuemi



谢谢兄弟的回复，但是我系统的/etc/hosts文件格式是这样的
#  /etc/hosts
#
# This file contains the hostnames and their address for hosts in the
# network.  This file is used to resolve a hostname into an Internet
# address.  
10.1.2.33    test33
10.1.2.34    test34
10.1.2.35    test35
10.1.2.36    test36
10.1.2.37    test37


如果单列你这样的方式确实可以，但是我这个文件至少有2列，有些文件有3列以上，这样的方法就不可以实现了。

还有一个问题，就是我需要先排除带#的行，实现起来好头痛，我现在有回到使用系统命令的方式处理，还在研究中。

yinyuemi

回复 17# houzi105


    你加个判断，排除#开头的行，
   用正则，改变下hash的下标，为你的第一列。

PS. awk也是一个不错的文本处理工具，可以试试。

houzi105

回复 18# yinyuemi

谢谢兄弟，在系统中我知道怎么使用，放在perl里面，把我已经搞的很狼狈了。还在看书中，对hash不是很理解。

paipai18

  我写个shell的方法，perl的请无视我

1. for i in `cat hosts_ip`
   
2. do
   
3.         eval "sed -i 's/$i//g' test_hosts"
   
4. done

复制代码