Help for this page

Select Code to Download


  1. or download this
    use Term::ReadLine;
my $tty='/dev/pts/5';
...
  print $OUT $res, "\n" unless $@;
  $term->addhistory($_) if /\S/;
}
  2. or download this
    > ls -l /proc/31965/fd/
insgesamt 0
lrwx------ 1 lanx lanx 64 Dez  1 17:18 0 -> /dev/pts/5
lrwx------ 1 lanx lanx 64 Dez  1 17:18 1 -> /dev/pts/5
lrwx------ 1 lanx lanx 64 Dez  1 17:18 2 -> /dev/pts/5