請教如何更好地使用socket來監(jiān)控網(wǎng)絡(luò)中主機

gaoquanlong

在局域網(wǎng)中有幾臺機器，現(xiàn)均開tcp端口用于管理，要實現(xiàn)的功能就是“登錄相應(yīng)主機端口，運行一個檢查程序，然后根據(jù)返回結(jié)果來決定是否運行第二個程序”，下面這個腳本雖可以完成這個任務(wù)，但是要多次連接主機，也曾嘗試使用fork方式來實現(xiàn)，但無法成功。請高手指教，謝謝~~

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 "缺少參數(shù): 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;
    

復(fù)制代碼

flw

一定要學(xué)會封裝。

gaoquanlong

懇請版主詳細指教，多給點意見，謝謝！！

meihuaqi

嫌連接次數(shù)多，可以連一次不釋放，等所有工作都干完再釋放啊。

liyangole

可以看看仙子提供的監(jiān)控程序，應(yīng)該在精華里有的，我看了受益匪淺的。