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一个子进程来调用它。不知道该如何使用。

我的出错代码如下：

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分钟内找不到雷同的解决问题方案，那就可能该不能那么轻浮咯,安静思考下"what is tty",也许就可以找到问题的根源咯，再不行就踏踏实实的看下源码吧：）

以上思路 纯属愚见，望大家共同探讨:wink: