| … | |
… | |
| 359 | use IO::Pty; |
359 | use IO::Pty; |
| 360 | use Fcntl; |
360 | use Fcntl; |
| 361 | |
361 | |
| 362 | my $pty = new IO::Pty; |
362 | my $pty = new IO::Pty; |
| 363 | fcntl $pty, F_SETFD, 0; # clear close-on-exec |
363 | fcntl $pty, F_SETFD, 0; # clear close-on-exec |
| 364 | |
|
|
| 365 | system "rxvt -pty-fd " . (fileno $pty) . "&"; |
364 | system "rxvt -pty-fd " . (fileno $pty) . "&"; |
|
|
365 | close $pty; |
| 366 | |
366 | |
| 367 | # now communicate with rxvt |
367 | # now communicate with rxvt |
| 368 | my $slave = $pty->slave; |
368 | my $slave = $pty->slave; |
| 369 | while (<$slave>) { print $slave "got <$_>\n" } |
369 | while (<$slave>) { print $slave "got <$_>\n" } |
| 370 | |
370 | |
