From e92b4a498418f31384803a66c5fbc885fbea9806 Mon Sep 17 00:00:00 2001
From: root <root>
Date: Thu, 17 Feb 2005 15:19:03 +0000
Subject: *** empty log message ***

---
 doc/pty-fd | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 doc/pty-fd

(limited to 'doc/pty-fd')

diff --git a/doc/pty-fd b/doc/pty-fd
new file mode 100755
index 0000000..03661b8
--- /dev/null
+++ b/doc/pty-fd
@@ -0,0 +1,22 @@
+#!/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: $_";
+}
+
-- 
cgit v1.2.3