[ViewVC] Contents of: cvs/rxvt-unicode/doc/pty-fd

#!/usr/bin/perl

# sample script to illustrate the -pty-fd option

use IO::Pty;
use Fcntl;

my $pty = new IO::Pty;
fcntl $pty, F_SETFD, 0; # clear close-on-exec

system "rxvt -pty-fd " . (fileno $pty) . "&";
close $pty;

# now communicate with rxvt
my $slave = $pty->slave;

print $slave "hi! please enter something and press return (ctrl-d to exit):\n";

while (<$slave>) {
   print $slave "you entered: $_";
}

Revision:	1.3
Committed:	Thu Feb 17 15:19:03 2005 UTC (19 years, 4 months ago) by root
Branch:	MAIN
CVS Tags:	rel-7_3, rel-7_2, rel-7_1, rel-7_0, rel-7_7, rel-7_6, rel-7_5, rxvt-unicode-rel-9_29, rxvt-unicode-rel-9_26, rel-7_8, rel-7_9, rxvt-unicode-rel-9_25, rxvt-unicode-rel-9_22, rxvt-unicode-rel-9_20, rxvt-unicode-rel-9_21, rel-5_5, rel-5_4, rel-5_7, rel-5_3, rel-5_2, rel-5_9, rel-5_8, rel-9_14, rel-7_4, rel-9_11, rel-9_10, rel-8_1, rel-9_12, rel-6_2, rel-8_5a, rel-6_3, rel-7_3a, rel-6_0, rel-8_9, rel-8_8, rel-9_0, rxvt-unicode-rel-9_19, rxvt-unicode-rel-9_18, rel-8_0, rel-8_4, rel-8_2, rel-8_3, rxvt-unicode-rel-9_17, rxvt-unicode-rel-9_16, rxvt-unicode-rel-9_15, rxvt-unicode-rel-9_30, rel-8_6, rel-8_7, rel-9_09, rel-9_02, rel-9_01, rel-9_06, rel-9_07, rel-9_05, rel-6_1, HEAD
Changes since 1.2:	+2 -0 lines
Log Message:	* empty log message *
#	Content
1	#!/usr/bin/perl
2
3	# sample script to illustrate the -pty-fd option
4
5	use IO::Pty;
6	use Fcntl;
7
8	my $pty = new IO::Pty;
9	fcntl $pty, F_SETFD, 0; # clear close-on-exec
10
11	system "rxvt -pty-fd " . (fileno $pty) . "&";
12	close $pty;
13
14	# now communicate with rxvt
15	my $slave = $pty->slave;
16
17	print $slave "hi! please enter something and press return (ctrl-d to exit):\n";
18
19	while (<$slave>) {
20	print $slave "you entered: $_";
21	}
22