Net::SSH::Perl 有點問題請教高手

jasonyy77

perl腳本如下:

1. #!/usr/bin/perl -w
   
2. 
   
3. use Net::SSH::Perl;
   
4. 
   
5. my $user = 'root';
   
6. my $pass = "123456";
   
7. my $host = "1.1.1.5";
   
8. my $cmd = "ls";
   
9. 
   
10. my %params = (
    
11.         port => "22",
    
12. );
    
13. 
    
14. my $ssh = Net::SSH::Perl->new($host, %params);
    
15. $ssh->login($user, $pass);
    
16. my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
    
17. print "$stdout";

復制代碼

這個腳本我手動執(zhí)行是沒有問題的.



但是我的想寫一個php頁面來調(diào)用這個腳本.
我的方式是用pecl
php代碼如下:

1. <?php
   
2. 
   
3.   $perl = new Perl();
   
4. 
   
5.   $perl->require('exec/restart-vsftpd.pl');
   
6. 
   
7. ?>

復制代碼

在命令行執(zhí)行:
manager]# php -e manager.php         
PHP Fatal error:  Uncaught exception 'PerlException' with message '[perl] require error: an attempt to getarg from a stale io handle at /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/SSH2.pm line 27.
Compilation failed in require at (eval 1) line 1.
' in /var/www/html/manager/manager.php:5
Stack trace:
#0 /var/www/html/manager/manager.php(5): Perl->require('exec/restart-vs...')
#1 {main}
  thrown in /var/www/html/manager/manager.php on line 5


在頁面執(zhí)行:apache 的error日志內(nèi)容如下:
[Sat Nov 20 00:57:08 2010] [error] [client 192.168.18.234] PHP Fatal error:  Uncaught exception 'PerlException' with message '[perl] require error: an attempt to getarg from a stale io handle at /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/SSH2.pm line 27.\nCompilation failed in require at (eval 1) line 1.\n' in /var/www/html/manager/manager.php:5\nStack trace:\n#0 /var/www/html/manager/manager.php(5): Perl->require('exec/restart-vs...')\n#1 {main}\n  thrown in /var/www/html/manager/manager.php on line 5



不知道哪位大俠可以幫我分析下.指點指點.

jasonyy77

有沒有高人可以指點下啊.

這個問題弄得我很郁悶啊.

昨晚查到凌晨4 5點都沒有搞定.

zhlong8

既然你手動執(zhí)行沒問題那就不應(yīng)該是 perl 的問題吧？

'exec/restart-vsftpd.pl' 是不是要加上 './' 不懂 php

jasonyy77

不是這個問題.因為我寫了另外一個perl腳本.
使用的Net::SSH::Expect模塊.可以正常執(zhí)行.只是速度真不行.(頁面也沒有問題)

我現(xiàn)在懷疑是[perl] require error: an attempt to getarg from a stale io handle at /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/SSH2.pm line 27.

這個問題.是不是 /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/SSH2.pm 模塊有問題.
但是我的功力不夠.看源代碼看不太明白.

flw

還是老觀點，不會 C 語言，學這些 Perl、PHP 到一定程度都會遇到這種瓶頸。

你這個問題必須精通 Perl、PHP、C 三種語言才可以解決。

flw

你倒是可以看看 /usr/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/SSH2.pm line 27 是什么東西。

flw

我建議直接走 IPC 好了。

jasonyy77

回復 6# flw

你說的這個我已經(jīng)去看過了.

實際上就cmd函數(shù),大概看了下,也沒有發(fā)現(xiàn)什么問題.
手動執(zhí)行可以.我就不明白為什么.

你說的IPC是指進程間通信嗎?
但是我這是網(wǎng)絡(luò)遠程連接.是不是用socket更好些?
我一直有個想法.就是遠程服務(wù)器端起個端口.
控制端起個端口.
控制端傳個字符串到遠程.遠程把這個字符串當系統(tǒng)命令執(zhí)行.這樣來控制遠程服務(wù)器.

你覺得是否可行?

以前自己也就是用perl寫寫腳本.還沒有真正寫過這種網(wǎng)絡(luò)的東西.還要需要高手多多指點.

flw

socket 當然也可以。
但工作量稍大些。

簡單的辦法就是把你的 Perl 程序和 PHP 程序之間用 IPC 連接起來。
比如命名管道或者消息隊列一類的。

jasonyy77

哦.明白你的意思了.
謝謝.