blocks|key|2854636|text|查找nohup命令。这是quick+post+to+get+you+started。为了完整性，这里是在你的例子中应该起作用的东西。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2854637|my+$cmd="nohup+./bin/snap.sh+&";|code-block|syntax|javascript|2854638|entityMap|0|LINK|mutability|MUTABLE|url|http://www.cyberciti.biz/tips/nohup-execute-commands-after-you-exit-from-a-shell-prompt.html^0|2|5|C|T|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@$9|T|A|U|B|C]]|D|@$9|V|A|W|1|X]]|E|$]]|$1|F|3|G|5|H|7|Y|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Z|8|@]|D|@]|E|$]]]|L|$M|$5|N|O|P|E|$Q|R]]]]

Lookup the <code>nohup</code> command. Here is <a href="http://www.cyberciti.biz/tips/nohup-execute-commands-after-you-exit-from-a-shell-prompt.html" rel="nofollow">quick post to get you started</a>. For completeness here is what should work in your case...

<pre><code>my $cmd="nohup ./bin/snap.sh &amp;";
</code></pre>

blocks|key|2854677|text|未经测试，但你就不能像ssh+-f那样做吗？|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2854678|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);
}|code-block|syntax|javascript|2854679|entityMap^0|B|6|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

Untested, but can't you just do what <code>ssh -f</code> does?

<pre><code>my $ssh = Net::SSH::Perl-&gt;new($host, protocol =&gt;2);
$ssh-&gt;login($username, $password);
defined (my $pid = fork) or die "fork: $!";
if ($pid) {
 close $ssh-&gt;sock;
 undef $ssh;
} else {
 my $cmd="./bin/snap.sh";
 my($stdout, $stderr, $exit) = $ssh-&gt;cmd($cmd);
 POSIX::_exit($exit);
}
</code></pre>

blocks|key|2854697|text|要在远程主机上运行后台作业，您还需要取消与本地计算机上的任何控制tty的关联。尝试执行如下命令：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2854698|my+$cmd+=+"./bin/snap.sh+<+/dev/null+>+/dev/null+2>&1+&";|code-block|syntax|javascript|2854699|我认为使用nohup是可选的。|offset|length|style|CODE|2854700|entityMap^0|0|0|5|5|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@$I|R|J|S|K|L]]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

To run a background job on a remote host, you also need to dissociate from any controlling ttys on the local machine. Try a command like:

<pre><code>my $cmd = "./bin/snap.sh &lt; /dev/null &gt; /dev/null 2&gt;&amp;1 &amp;";
</code></pre>

I think using <code>nohup</code> is optional.

blocks|key|4454818|text|为此，我使用Net::OpenSSH。它有一个派生方法，可以做你想要做的事情。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|4454819|++my+%25conn+=+map+{+$_+=>+Net::OpenSSH->new($_)+}+@hosts;
++my+@pid;
++for+my+$host+(@hosts)+{
++++++open+my($fh),+'>',+"/tmp/out-$host.txt"
++++++++or+die+"unable+to+create+file:+$!";
++++++push+@pid,+$conn{$host}->spawn({stdout_fh+=>+$fh},+$cmd);
++}

++waitpid($_,+0)+for+@pid;|code-block|syntax|javascript|4454820|entityMap|0|LINK|mutability|MUTABLE|url|http://search.cpan.org/~salva/Net-OpenSSH-0.50/lib/Net/OpenSSH.pm#spawn^0|6|C|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@$A|R|B|S|1|T]]|C|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|C|$G|H]]|$1|I|3|-4|5|6|7|V|8|@]|9|@]|C|$]]]|J|$K|$5|L|M|N|C|$O|P]]]]

I use <a href="http://search.cpan.org/~salva/Net-OpenSSH-0.50/lib/Net/OpenSSH.pm#spawn" rel="nofollow">Net::OpenSSH</a> for this. It has a spawn method that does exactly what you're looking for.

<pre><code> my %conn = map { $_ =&gt; Net::OpenSSH-&gt;new($_) } @hosts;
 my @pid;
 for my $host (@hosts) {
 open my($fh), '&gt;', "/tmp/out-$host.txt"
 or die "unable to create file: $!";
 push @pid, $conn{$host}-&gt;spawn({stdout_fh =&gt; $fh}, $cmd);
 }

 waitpid($_, 0) for @pid;
</code></pre>

Script goes to the remote server and runs a shell script "snap.sh" using Net::SSH::Perl. 
This shell script takes almost 10mins to end, and my perl program waits until it gets output.
I want to run the shell script on the remote sever and the program should close the SSH session without waiting for the script to finishes on the remote server.

<pre><code>my $ssh = Net::SSH::Perl-&gt;new($host, protocol =&gt;2);
$ssh-&gt;login($username, $password);
my $cmd="./bin/snap.sh";
my($stdout, $stderr, $exit) = $ssh-&gt;cmd($cmd);
</code></pre>

Perl (SSH to remote host, Issues the command and close the session without waiting it to finish...)

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

脚本转到远程服务器，并使用Net::SSH::Perl运行外壳脚本"snap.sh“。这个shell脚本几乎需要10分钟才能结束，我的perl程序一直等到输出。我想在远程服务器上运行shell脚本，程序应该关闭SSH会话，而不是等待脚本在远程服务器上完成。my $ssh = Net::SSH::Perl->new($h...

问Perl (SSH到远程主机，发出命令并关闭会话，而不等待它完成...)
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Perl (SSH到远程主机，发出命令并关闭会话，而不等待它完成...)EN