Estoy programando un menú de opciones en Perl, pero necesito una función equivalente al getch()
de C++ en Perl, para poder mostrar la salida, y el sleep 1;
no funciona a como quiero. Espero puedan ayudarme.
while ($input ne '6') {
clear_screen();
print "\n\n\t\t\t\tFunciones Sobre Cadenas de Caracteres\n\n";
print "1. opcion 1\n".
"2. opcion 2\n".
"3. opcion 3\n".
"4. opcion 4\n".
"5. opcion 5\n".
"6. salir\n";
print "Introduce tu opcion: ";
$input = <STDIN>;
chomp($input);
sleep 1; #aquí necesito la función equivalente a getch()
switch ($input)
{
case '2'
{
$input = '';
}
}
}