| 1 | #!/usr/bin/perl |
1 | #!/usr/bin/perl |
|
|
2 | |
|
|
3 | # sample script to illustrate the -pty-fd option |
| 2 | |
4 | |
| 3 | use IO::Pty; |
5 | use IO::Pty; |
| 4 | use Fcntl; |
6 | use Fcntl; |
| 5 | |
7 | |
| 6 | my $pty = new IO::Pty; |
8 | my $pty = new IO::Pty; |
| 7 | fcntl $pty, F_SETFD, 0; # clear close-on-exec |
9 | fcntl $pty, F_SETFD, 0; # clear close-on-exec |
| 8 | |
10 | |
| 9 | system "rxvt -pty-fd " . (fileno $pty) . "&"; |
11 | system "rxvt -pty-fd " . (fileno $pty) . "&"; |
|
|
12 | close $pty; |
| 10 | |
13 | |
| 11 | # now communicate with rxvt |
14 | # now communicate with rxvt |
| 12 | my $slave = $pty->slave; |
15 | my $slave = $pty->slave; |
| 13 | |
16 | |
| 14 | print $slave "hi! please enter something and press return (ctrl-d to exit):\n"; |
17 | print $slave "hi! please enter something and press return (ctrl-d to exit):\n"; |
