请教如何更好地使用socket来监控网络中主机

gaoquanlong

在局域网中有几台机器，现均开tcp端口用于管理，要实现的功能就是“登录相应主机端口，运行一个检查程序，然后根据返回结果来决定是否运行第二个程序”，下面这个脚本虽可以完成这个任务，但是要多次连接主机，也曾尝试使用fork方式来实现，但无法成功。请高手指教，谢谢~~

1. #!/usr/bin/perl  -w
   
2. 
   
3. use IO::Socket;
   
4. 
   
5. my ($ip,$port,$sock,@ans);
   
6. 
   
7. sub connect_to_ip(){
   
8.         if(@_<2){
   
9.                 print "缺少参数: ip port\n";
   
10.                 return;
    
11.         }
    
12.         $sock = new IO::Socket::INET (
    
13.                         PeerAddr  => $_[0],  #ip
    
14.                         PeerPort  => $_[1],  #port
    
15.                         Proto     => 'tcp',
    
16.                         Timeout   => 30,);
    
17.         unless($sock){
    
18.                 die "Error:$!\n";
    
19.                 return;
    
20.         }
    
21. }
    
22. 
    
23. open FILE,"< test.cf" or die "Cannot open file test.cf :$!";
    
24. 
    
25. while(<FILE>){
    
26.         next if /^\s*#|^\s*$/;
    
27.         ($ip,$port)=($1,$2) if /((?:\d{1,3}.){3}\d{1,3})\s+(\d+)/;
    
28. 
    
29.         &connect_to_ip($ip,$port);
    
30.         print $sock "check_data\n";
    
31.         print $sock "exit\n";
    
32. 
    
33.         @ans = <$sock>;
    
34. 
    
35.         close($sock);
    
36. 
    
37.         foreach $line (@ans){
    
38.                                                                 chomp;
    
39.                 if($line =~ /$_.*异常/){
    
40.                    print $line;
    
41. 
    
42.                                                                          &connect_to_ip($ip,$port);
    
43.                                                                          print $sock "restart_proc\n";
    
44.                                                                          print $sock "exit\n";
    
45.                                                                          print $out while (defined($out=<$sock>));
    
46. 
    
47.                         }
    
48.         }
    
49. }
    
50. 
    
51. close FILE;
    

复制代码

flw

一定要学会封装。

gaoquanlong

恳请版主详细指教，多给点意见，谢谢！！

meihuaqi

嫌连接次数多，可以连一次不释放，等所有工作都干完再释放啊。

liyangole

可以看看仙子提供的监控程序，应该在精华里有的，我看了受益匪浅的。