user-tools/ttinput

   1 #!/usr/bin/env perl
   2
   3 true <<EOF
   4 =pod
   5
   6 =head1 NAME
   7
   8 ttinput - Inject console input in a terminal as if the user typed
   9
  10 =head1 SYNOPSIS
  11
  12 echo Lorm ipsum | ttinput /dev/pts/1
  13
  14 =head1 CREDITS
  15
  16 L<https://johnlane.ie/injecting-terminal-input.html>
  17
  18 =cut
  19
  20 EOF
  21
  22
  23
  24 $tty = shift @ARGV || '/dev/tty';
  25 sysopen $fd, $tty, O_WRONLY|O_NONBLOCK or die "open $tty: $!\n";;
  26
  27 while(<STDIN>)
  28 {
  29         for $ch (split //)
  30         {
  31                 ioctl($fd, 0x5412, $ch) or die "ioctl: $!\n";
  32         }
  33 }