IO::Pty could not connect pty as controlling terminal!

lucash

在結合使用Net::OpenSSH 和 Expect模塊時，遇到的問題。

用Net::OpenSSH 建立一個master ssh connection ，然后用一個叫做open2pty的方法來
打開一個pty供Expect模塊使用。
在spawn時出錯，提示信息如下：

warning: TIOCSCTTY failed, slave might not be set as controlling terminal: Operation not permitted at /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/IO/Pty.pm line 120.
Error: could not connect pty as controlling terminal!

但不知道怎么才能正確的使用IO：：Pty中的make_slave_controlling_terminal() 方法來spawn一個子進程。
該方法的說明文檔中提示說只能通過fork一個子進程來調(diào)用它。不知道該如何使用。

我的出錯代碼如下：

1. 
   
2. 
   
3. #!/usr/bin/perl -w
   
4. use strict;
   
5. use Net::OpenSSH;
   
6. use Expect;
   
7. 
   
8. my $ssh = Net::OpenSSH->new('192.168.10.100',
   
9.                  user       => 'lucash',
   
10.                  passwd  => 'lucash'
    
11. );
    
12. $ssh->error and die "Unable to connect: " . $ssh->error . "\n";
    
13. my @cmd = qw(who);
    
14. my ($pty,$pid)  = $ssh->open2pty({},@cmd);
    
15. my $exp = Expect->init($pty) or die "Can not init pty: $!\n";
    
16. 
    
17. $exp->spawn(@cmd) or die "Unable to spawn command: $!\n";
    
18. 
    

復制代碼

加了make_slave_controlling_terminal后還是報錯：

1. 
   
2. 
   
3. my ($pty, $pid)  = $ssh->open2pty({},@cmd};
   
4. if ( (my $ppid = fork()) == 0) {
   
5.       $pty->slave();
   
6.       $pty->make_slave_controlling_terminal();
   
7.       my $exp = Expect->init($pty) or die "Can not init pty : $!\n";
   
8. }
   
9. 
   

復制代碼

難道是要open2pty得到的那個$pid fork的子進程中make_slave_controlling_terminal()才有用嗎？該怎么做呢？

以下是IO:：Pty的部分源碼：

1. [font=Verdana]
   
2. sub make_slave_controlling_termianl {
   
3. 
   
4.     …………………… 部分省略。
   
5.    
   
6.   # Acquire a controlling terminal if this doesn't happen automatically
   
7.   if (defined TIOCSCTTY) {
   
8.     if (not defined ioctl( ${*$self}{'io_pty_slave'}, TIOCSCTTY, 0 )) {
   
9.       warn "warning: TIOCSCTTY failed, slave might not be set as controlling terminal: $!" if $^W;
   
10.     }
    
11.   } elsif (defined TCSETCTTY) {
    
12.     if (not defined ioctl( ${*$self}{'io_pty_slave'}, TCSETCTTY, 0 )) {
    
13.       warn "warning: TCSETCTTY failed, slave might not be set as controlling terminal: $!" if $^W;
    
14.     }
    
15.   }
    
16. 
    
17.   if (not open(\*DEVTTY, "/dev/tty")) {
    
18.     warn "Error: could not connect pty as controlling terminal!\n";
    
19.     return undef;
    
20.   } else {
    
21.     close \*DEVTTY;
    
22.   }
    
23.    return 1
    
24. }
    

復制代碼

IO:: Pty的文檔還說:

1. See the try script (also test.pl) for an example how to correctly spawn a subprocess.

復制代碼

天哪，這個‘try’ 腳本在哪啊？

搞兩天了也沒搞定，各位大俠幫幫忙。多謝了。

注：這個部分只是一個腳本中的一小部分，因此暫不考慮拋棄Net::OpenSSH模塊的方法

lucash

怎么都沒人來幫忙啊

xuanfei

印象中自己遇見過類似的問題，剛剛特地去翻開自己以前寫過的代碼看了下

1. 420     my $session = Net::SSH::Expect->new (
   
2. 421         host => "$host",
   
3. 422         password=> "$pass",
   
4. 423         user => "$user",
   
5. 424         raw_pty => 1
   
6. 425     );
   

復制代碼

看來自能幫頂了

順便假設一下：如果我今天我也遇到跟你一樣的困境，我想我的Google思線是
首先看有先烈不  Google之 "Error: could not connect pty as controlling terminal!" ，5分鐘內(nèi)找不到雷同的解決問題方案，那就可能該不能那么輕浮咯,安靜思考下"what is tty",也許就可以找到問題的根源咯，再不行就踏踏實實的看下源碼吧：）

以上思路 純屬愚見，望大家共同探討:wink: