use Net::SSH::Perl;
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
在 2008-12-30二的 17:14 +0800,star G写道:
>
> @要转义?之前没注意……我后来解决的方法是写了一个sh再用perl调--b
> open(PROCESS,"sh test.sh 192.168.0.11 |");
> foreach (<PROCESS>) {
> ………………
> }
> close(PROCESS);
>
> 谢谢大家的回复^^我再试试不分成两个脚本的~
>
>
> 2008/12/26 joe jiang <lamp.purl@gmail.com>
> 可以用 open,只是需要同时为 read 和 write 打开,最好用
> IPC::Open3 进行处
> 理。
> perldoc -f open
>
>
> On 五, 2008-12-26 at 16:34 +0800, xu zhou wrote:
> > 按理说open也应该没问题的吧
> > 为何在这里不能用?
> >
> > 2008/12/26 Qiang (James) <shijialee@gmail.com>:
> > > 不用 open..
> > >
> > > perl -le 'system("ssh qiangli\@example.com \"ls -l | grep
> perl\"")'
> >
> > >
>
>
>
>
>
>
> >
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina 论坛"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
没有评论:
发表评论