問題描述
Skrip Perl untuk memeriksa server jarak jauh untuk proses (Perl script to check remote server for process)
I am having a bit of a problem with a script that I setup. A little background:
The function of the script is to read from a list of servers that is in a text file separated by :: , log on to the servers, check to see that mysql is running and report back. The file is configured such that each line has: Servername::Ip address::port number
The problem I am having is that I think perl is trying to concatenate the ip address that I am feeding to the function I have in the code. Can anyone point my in the right direction?
#!/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";
}
}
What am I doing wrong?
Thank You.
‑‑‑‑‑
參考解法
方法 1:
my $issue = `ssh ‑t root@"$_[0]" ‑p$"_[1]" 'ps axco command | grep ‑i mysql'`;
look at
‑p$"_[1]"
which should be
‑p "$_[1]"
方法 2:
Your code with a few modifications
...
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
...
方法 3:
Try
our ($name, $ip, $port) = split('::', $line);
方法 4:
Put in some print‑debugging code so you can see the command being run. So change:
my $issue = `ssh ‑t root@"$_[0]" ‑p$"_[1]" 'ps axco command | grep ‑i mysql'`;
to
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`;
This should flag up the problem with the command. It's almost certainly because you didn't chomp the lines you read from the file, so the port number actually has \n after it.
(by Roncioiu、ugexe、RohitW、amphibient、pndc)