… | |
… | |
580 | use Fcntl;</pre> |
580 | use Fcntl;</pre> |
581 | </dd> |
581 | </dd> |
582 | <dd> |
582 | <dd> |
583 | <pre> |
583 | <pre> |
584 | my $pty = new IO::Pty; |
584 | my $pty = new IO::Pty; |
585 | fcntl $pty, F_SETFD, 0; # clear close-on-exec</pre> |
585 | fcntl $pty, F_SETFD, 0; # clear close-on-exec |
586 | </dd> |
|
|
587 | <dd> |
|
|
588 | <pre> |
|
|
589 | system "rxvt -pty-fd " . (fileno $pty) . "&";</pre> |
586 | system "rxvt -pty-fd " . (fileno $pty) . "&"; |
|
|
587 | close $pty;</pre> |
590 | </dd> |
588 | </dd> |
591 | <dd> |
589 | <dd> |
592 | <pre> |
590 | <pre> |
593 | # now communicate with rxvt |
591 | # now communicate with rxvt |
594 | my $slave = $pty->slave; |
592 | my $slave = $pty->slave; |