Foro - Perl en Español

por **pascal** » 2007-05-23 07:21 @348

¿Existe alguna función en Perl que haga esto?, algo así como el system("PAUSE") de c++ en win.

Gracias

El problema es si quieres hacerlo con CUALQUIER tecla. Una forma de resolverlo es con el comando select testeando el canal de entrada estándar del sistema.

También depende un poco del sistema operativo el que se pueda hacer o no.

Aquí tienes una solución más cómoda, usando el módulo Term::ReadKey:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Term:ReadKey;

print"Pulsa una tecla para continuar:";

ReadMode 'cbreak';
$respuesta= ReadKey(0);

ReadMode 'normal';Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **pascal** » 2007-05-23 12:30 @563

Gracias explorer, me servirá con la tecla enter, pero podrías explicarme como lo hace? es que no entiendo que hace <>, si fuera una comparación con el código ascii de enter lo entendería pero eso no lo se ..

por **creating021** » 2007-05-23 15:17 @678

Si quieres porgramar tomar la entrada de cualquier tecla sin unar módulos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

binmodeSTDIN;
my$key;
sysread(STDIN,$key, 1);
print"Usted oprimio ".ord($key)."\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aunque la forma más optima y protable de programar esto es el código dado (el que he puesto) poniendo, antes de hacer el binmode y depués del sysread, setcc(VTIME, 1) y setcc(VTIME, 0) de POSIX::Termios.

La forma más fácil de hacerlo es la que ha dicho explorer.

En cuanto a lo de < >... se refiere a <STDIN> que las terminales quiere decir Standard Input...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"Oprima enter para continuar \n";
my$string=<STDIN>;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2007-05-23 18:26 @809

Como dice creating021, <> es la forma abreviada de <STDIN>, que es la forma de leer desde la entrada estándar.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"Escriba su nombre: ";
$nombre=<>;
print"Usted es $nombre\n";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Más información en la página perlop, en la sección de "I/O Operators".

por **pascal** » 2007-05-24 08:29 @395

Ok, ya lo entiendo, lo que no sabia es que <> era la forma abreviada.
Muchas gracias la verdad es que es difícil encontrar un foro de programación donde te presten tanta atención

Foro - Perl en Español

Pulse una tecla para continuar

Pulse una tecla para continuar

Publicidad

¿Quién está conectado?