脚本转到远程服务器,并使用Net::SSH::Perl运行外壳脚本"snap.sh“。这个shell脚本几乎需要10分钟才能结束,我的perl程序一直等到输出。我想在远程服务器上运行shell脚本,程序应该关闭SSH会话,而不是等待脚本在远程服务器上完成。
my $ssh = Net::SSH::Perl->new($host, protocol =>2);
$ssh->login($username, $password);
my $cmd="./bin/snap.sh";
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);发布于 2011-01-27 23:14:18
未经测试,但你就不能像ssh -f那样做吗?
my $ssh = Net::SSH::Perl->new($host, protocol =>2);
$ssh->login($username, $password);
defined (my $pid = fork) or die "fork: $!";
if ($pid) {
close $ssh->sock;
undef $ssh;
} else {
my $cmd="./bin/snap.sh";
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
POSIX::_exit($exit);
}发布于 2011-01-27 22:41:14
查找nohup命令。这是quick post to get you started。为了完整性,这里是在你的例子中应该起作用的东西。
my $cmd="nohup ./bin/snap.sh &";发布于 2011-01-28 03:00:42
要在远程主机上运行后台作业,您还需要取消与本地计算机上的任何控制tty的关联。尝试执行如下命令:
my $cmd = "./bin/snap.sh < /dev/null > /dev/null 2>&1 &";我认为使用nohup是可选的。
https://stackoverflow.com/questions/4817664
复制相似问题