用於檢查遠程服務器進程的Perl腳本

Question

我在設置腳本時遇到了一些問題。一個小背景：

腳本的功能是從服務器列表中讀取，這些服務器位於由::分隔的文本文件中，登錄到服務器，檢查以查看mysql是否正在運行並報告回來。該文件配置，使每一行有：服務器名:: IP地址::端口號

我遇到的問題是，我認爲perl試圖連接我所饋送的IP地址到我有代碼。任何人都可以指出我的方向正確嗎？

#!/usr/bin/perl                       

use strict; 
use warnings; 

open(FH, '<', 'serverlist_test') or error("Cannot open file , ($!)"); 
while (my $line = <FH>) { 
    our ($name, $ip, $port) = split(/::/, $line); 
    my $version = &MySQL_check($ip, $port);                      
} 
close FH; 

sub MySQL_check { 

    my $issue = `ssh -t root@"$_[0]" -p$"_[1]" 'ps axco command | grep -i mysql'`; 
    print $issue; 
    if ($issue =~ /mysql/) {                    
     return "Mysql found"; 
    } else {                        
     return "Mysql not found";                   
    }                          
} 

我在做什麼錯？

謝謝。

Answer 1

放那麼你可以看到正在運行的命令。所以改變：

my $issue = `ssh -t root@"$_[0]" -p$"_[1]" 'ps axco command | grep -i mysql'`; 

到

my $command = qq`ssh -t root@"$_[0]" -p$"_[1]" 'ps axco command | grep -i mysql'`; 
warn "Going to run \"$command\""; # comment this out when your code works! 
my $issue = `$command`; 

這應該舉報了該命令的問題。這幾乎肯定是因爲你沒有從文件中讀取的線路，所以端口號碼後面實際上有\n。

Answer 2

嘗試在一些打印調試代碼

our ($name, $ip, $port) = split('::', $line); 

Answer 3

my $issue = `ssh -t root@"$_[0]" -p$"_[1]" 'ps axco command | grep -i mysql'`; 

看看

-p$"_[1]" 

這應該是

-p "$_[1]" 

Answer 4

你有一些修改

... 
while (my $line = <FH>) { 
    chomp($line); #MOD -- remove newline 
    our ($name, $ip, $port) = split("::", $line); #MOD -- change delimiter 
... 

sub MySQL_check { 

    my $issue = `ssh -t root@"$_[0]" -p"$_[1]" 'ps axco command | grep -i mysql'`; #MOD -- fix misplaced double quotes 
...