Con este miniprogramita de Perl puedo escribrir en una tty:
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use strict;
open(FH , ">> /dev/ttyx") || die "$!\n";
while (<>) {
print FH $_;
}
use strict;
open(FH , ">> /dev/ttyx") || die "$!\n";
while (<>) {
print FH $_;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Pero cómo hago cuando quiero "interceptar" los comandos, porque cuando hago algo como lo siguiente
Using perl Syntax Highlighting
use strict;
open(FH , "< /dev/ttyx") || die "$!\n";
while (<FH>) {
print $_;
}
open(FH , "< /dev/ttyx") || die "$!\n";
while (<FH>) {
print $_;
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
A la consola destino es como que se le bloquea el prompt y no aparece lo que estoy escribiendo, pero tampoco me lo manda a mi...
Leí algo de Term::Readkey, pero quería saber si hace falta usar ese módulo ya que no es parte de los módulos que son estandar.
