… | |
… | |
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 | |